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Esta edición de la revista queremos que sea un número refrescante para el cálido 
clima del estío. En un principio pensamos dedicar el espacio de la revista únicamente 
a programas, pero finalmente decidimos que no vendrían mal algunos artículos. A 
fin de cuentas el verano también es un buen momento para aprender y repasar temas. 

Después de reservar un pequeño espacio, no todo el que quisiéramos, a contestar 
cartas de lectores, pasamos a un interesante artículo que desvela los misterios de 
como guarda el ordenador los programas escritos en BASIC. Bueno, en este caso 
concreto el protagonista elegido es el C-64. De ahí el título El Misterio del BASIC, no 
porque sea un misterio, sino más bien porque a gran parte de los usuarios les puede 
parecer que lo es. 

El profesor Roca Dorda, de la Escuela Universitaria Po técnica de Cartagena, 
nos presenta la primera parte de una serie de artículos orientados al funcionamiento 
y aplicaciones de los lápices ópticos. Acompaña sus textos con esquemas teóricos y 
prácticos, no en balde su especialidad es la electrónica. Así es factible que los lectores 
“manitas" sopesen la posibilidad de construirse el suyo. J 

La serie que no hemos interrumpido es la que nos cuenta como interpretar lo que 
nos ofrece el manual, esta vez bajo el título de Visualización de Caracteres, un tema 
ameno e interesante para sacarle mayor partido a la máquina. 

Incluimos también una encuesta que, cuando nos ofrezca sus interesantes 
respuestas, nos servirá para acomodar más la revista a los gustos y preferencias 
generalizados de los lectores. 

Por supuesto, las secciones de Programas y Concurso siguen con su relevancia 
tradicional en la revista. En esta ocasión sale el gordo, con el resultado del concurso 
de aplicaciones pensadas para el Cale Result, donde la respuesta no ha sido tan 
masiva como hubiera sido de desear. 

No nos queda más que desearos que sigáis disfrutando de las delicias del tórrido 
verano. 
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Software comentado 


PROGRAMA: TALES OF 
THE ARABIAN MGHTS 
TIPO: JUEGO 
DISTRIBUIDOR: ABC SOFI 
FORMATO: CINTA DE 
CASSETTE 
COMPUTADOR: 
COMMODORE 64 CON 
JOYSTICK 

Este juego está basado en la 
leyenda de las mil y una no¬ 
ches. Mientras la princesa 
Anitra cuenta historias a Sa¬ 
ladillo, su novio Imrahil debe 
pasar por mil peligros para 
reseta ría. 

El programa sigue la línea 
del Kong y muchos más re¬ 
presentando en diversas pan¬ 
tallas sucesivas pruebas que el 
príncipe aventurero debe su¬ 
perar. En algunas deberá reu¬ 
nir por orden las letras que 
forman la palabra kk A RA¬ 
BIAN' que se hallan disper¬ 
sas. en otras ocasiones volará 
con alfombras o navegará por 



ríos cogiendo bolas de fuego 
que le salen al paso. Estos 
movimientos se controlan con 
el joystick, que además de las 
direcciones principales usa el 
botón de disparo para saltar 
de un sitio a otro. Ea dificul¬ 
tad va en aumento progresivo, 
aunque ya, el primer nivel, es 
bastante complicado y exige 
una sincronización perfecta 
para evitar caer en las garras 
de los “malos". 

El juego posee una fascina¬ 
ción sorprendente, aumenta¬ 
da con música y con un sinte¬ 
tizado!* de voz que hace que el 


ordenador hable. Estas dos 
opciones son eliminables a 
voluntad para aquellas perso¬ 
nas que prefieren los juegos 
silenciosos. 

La cinta viene en una atrac¬ 
tiva caja con completas ins¬ 
trucciones y la historia com¬ 
pleta tal como la narra la 
leyenda. Todos estos datos 
vienen en inglés, pero el im¬ 
portador nos ha asegurado 
que pronto estarán disponi¬ 
bles en español. 

El juego está muy bien he¬ 
cho y tiene unas característi¬ 
cas de lo común (sintetizado!* 
de voz, carga ultrarrápida) 
que hacen muv aconsejable su 
compra. 


PUNTUACION: 
ADICCION: 7. 
PRESENTACION: 9. 
GRAFICOS: 6. 
ACCION: 7. 


PROGRAMA: MAZIACS 
TIPO: JUEGO 
DISTRIBUIDOR: ABC SOFr 
FORMATO: CINTA DE 
CASSETTE 
COMPUTADOR: 
COMMODORE 64 

Básicamente consiste en un 
Iabrinto de gran tamaño en el 
que se ha escondido un testi¬ 
ro. el jugador parte de la zona 
central del laberinto y debe 
encontrar el tesoro y llevarlo 
al lugar de partida. Por las 
paredes se encontrará con es¬ 
padas. comida y prisioneros a 
los que no puede rescatar pero 
que le indicarán la dirección 
en que se halla el tesoro, o si 
ya lo tiene, la dirección para 
volver a casa. 

P^-o no todo va a ser bue¬ 
no, en el laberinto habitan los 
MAZIACS. terribles mons¬ 
truos que le atacan y de los 
que se puede defender con 
ayuda de una espada (si no 


tiene espada el resultado de la 
pelea es bastante dudoso), ca¬ 
da vez que pelee con uno la 
espada desaparece y debe bus¬ 
car otra. En el camino de 
vuelta, cuando ya tiene el 
tesoro, las cosas se complican 
porque no se pueden llevar 
dos objetos a la vez y cuando 
nos encontramos con un 
monstruo tenemos que dejar 
el tesoro v agarrar una espada 
para matar al monstruo (si 
tenemos una espada cerca, 
claro). En la parte inferior de 
la pantalla aparecen dos ba¬ 
rras indicadoras, la primera 
señala la fuerza que nos que¬ 
da. ésta aumenta al comer v 
disminuye al andar o luchar 
con un monstruo (disminu¬ 
yendo mucho más en este 
segundo caso). La segunda 
barra indica lo cerca que es¬ 
tamos del tesoro, aunque esta 
indicación no es fiable al cien 
por cien ya que podemos estar 
al lado del tesoro pero sepa¬ 


rados por una pared que nos 
obligue a realizar un largo 
rodeo. 

El manejo se puede realizar 
con el teclado o con el joystick 
Cuando queramos co¬ 
ger un objeto o interrogar a 
un prisionero debemos inten¬ 
tar movernos hacia él .Bási¬ 
camente consiste en mover a 
nuestro personaje, ya que las 
. luchas con el monstruo, una 
vez que nos encontramos con 
él. con totalmente automáti¬ 
cas limitándonos a hacer de 
espectadores. Además de los 
movimientos existe otra op¬ 
ción que nos permite ampliar 
nuestro campo de visión y ver 
más trozo del laberinto (aun¬ 
que no se le llega a ver todo 
entero). 


PUNTUACION: 
ADICCION: 5. 
PRESENTACION: 6. 
GRAFICOS: 8. 
ACCION: 8. 
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Acabamos de conseguir nuestro 
ansiado ordenador. Inmediatamente 
leeremos el manual o algún libro 
sustitutorio, de la mano del cual 
teclearemos nuestras primeras líneas 
de programación en BASIC. Una de 
las cosas más clásicas que se suele 
teclear es algún corto programa que 
enseñe al ordenador a llamarnos por 
nuestro nombre, aleo así como: 

10 INPUT “CÓMO TE LLA¬ 
MAS”;' A$ 

20 PRINT “BIEN"; AS; “VAMOS 
A JUGAR A...” 

Después como es lógico, la comple¬ 
jidad de nuestros desarrollos irá au¬ 
mentando. en la medida en que pres¬ 
temos más tiempo y dedicación al 
ordenador. Poco a poco vamos com¬ 
probando como la máquina hace lo 
que le digamos, siempre que respete¬ 
mos unas normas para que el pro¬ 
grama sea coherente. 

Sin embargo muy a menudo surgen 
dudas en torno a como almacena el 
ordenador nuestro programa, y sobre 


todo como lo ejecuta posteriormente. 
El manual no aclara gran cosa, pues 
esto no es imprescindible para ser un 
inmejorable programador. Al igual 
que tampoco es necesario saber como 
funciona un reloj para conocer la 
hora. De todas formas es probable 
que surja la intriga, y eso es lo que 
vamos a desvelar a lo largo del 
artículo. 

Al examinar el manual vimos por 
algún lado el mapa de memoria 
utilizado en el 64.También, por algún 
lado, aparece una leyenda similar a 
“zona de memoria reservada para el 
BASIC”. 

Un mapa de memoria es en sí una 
representación de como se distribuye 
la memoria disponible por el ordena¬ 
dor. en función de sus necesidades y 
prestaciones. Normalmente se repre¬ 
senta como un rectángulo en sentido 
vertical, seccionado por varias líneas 
horizontales, que a su vez definen 
distintas áreas. Cada una queda deli¬ 
mitada por dos números (en decimal 


Lista de algunos caracteres ASCII. 
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Figura 1. A. Listado del programa 
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Figura I 
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o hexadecimal). que corresponden a 
direcciones reales de la memoria. 

Volvamos a ese área reservada a los 
programas en BASIC. Pues bien, en 
ellas es donde se guardan todas las 
líneas de nuestro programa. En el 64 


este área comienza normalmente en la 
dirección 2049 ($801) v se extiende 
hasta la 40959 ($9FFF). 

En realidad el inicio está en la 
dirección 2048. que contendrá el nú¬ 
mero cero a modo de indicador. 


Entre las direcciones 40960 
(AOOO) y 49151 (SBFFF) se halla el 
BASIC en ROM, sobre el que habla¬ 
remos enseguida. Es lo que hace que 
este lenguaje sea algo utilizable en el 
ordenador. Una última zona ocupada 
también por memoria ROM contiene 
información muy útil para que el 64 
actúe correctamente, es el KERNAL, 
sistema operativo consistente en una 
serie de programas, que dan coheren¬ 
cia al funcionamiento de la máquina. 
En realidad el KERNAL es una tabla 
que recoge los saltos que deben ser 
realizados hacia las diversas rutinas 
del sistema operativo. Su ubicación 
abarca desde la dirección 57344 
($EOOO) hasta la 65535 (SFFFF). 

El BASIC en ROM contiene mu- 


10 REM***C0MM0D0RE 64 
20 PRINT"PRUEBA" 


Figura 3. Líneas de ejemplo. 

chas rutinas separadas, pero podemos 
agruparlas entre sí en dos sistemas 
principales: el editor y el intérprete. 

El editor trabaja de forma visible en 
la pantalla, manejando todo el tra¬ 
bajo ingrato de modificar, insertar v 
borrar cosas en la línea de programa 
que más nos guste. En otras palabras, 
el editor controla la entrada de pro¬ 
gramas. sean líneas sin número (co¬ 
mandos directos) o con él. Siempre 
que el ordenador no esté ejecutando 
algún programa, es el editor quien 
tiene el control de la máquina. 

El intérprete entra en acción en 
cuanto teclamos el comando RUN. 
conservando el control hasta el final 
de la ejecución del programa, o hasta 
que decidamos detenerlo por alguno 
de los procedimientos de paro de la 
misma. 

Todas y cada una de las líneas de 
programa que escribamos se guardan 
en la zona de memoria RAM asignada 
al BASIC siguiendo el mismo for¬ 
mato. independientemente de su di¬ 
rección de comienzo y su longitud. 

Como todo el mundo sabe, el 
BASIC se caracteriza, entre otras 
cosas, por disponer de un nutrido 


TQKEN ' :: 


PALABRA T0KEN 
CLAVE 


PALABRA TOKEN 
CLAVE 


PALABRA 

CLAVE 


128 .END 

129 .F0R 

130 _..NEXT 

131 .DATA 

132 .INPUT# 

133 .INPUT 

134 .DIN 

135 .READ 

136 ..LET 

137 .GOTO 

138 .RUN 

139 .IF 

140 .RESTORE 

141 .00SUB 

142 .RETURN 

143 .REM 

144 .STOP 

145 .ON 

146 .WRIT 

147 .LOAD 

148 .SAVE 

149 ..VERIFV 

150 .DEF 

151 .P0KE 

152 .PRINT# 

Figura 2. Lista de token v 


153 .PRINT 

154 .C0NT 

155 .LIST 

156 .CLR 

157 .CMD 

158 .SVS 

159 __OPEN 

160 .CL0SE 

m 

163 .TABC 

164 .T0 

165 .FN 

166 .SPCÍ 

167 .THEN 

168 .NOT 

169 .STEP 

170 .+ 

171 .- . 

172 .... 

173 _ 

174 .... 

175 . 

176 .... 

177 .... 


* * 

/ 

T 

AND 

ÜR 

> 


178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 


. . .. . 


.SON 
. INT 
. ABS 
. USR 
.FRE 
.POS 
. SQR 
. RND 
.LQG 
.EXP 
.C0S 
.SIN 
.TAN 
. ATN 
. PEEK 
.LEN 
. STR$ 
.VAL 
.ASC 
. CHR$ 

.LEFT$ 

.RIGHT$ 
.MID* 


palabras reservadas. 


1000 0PEN3 >4 

1003 PRINT#3,CHR$(15)"T0KEN 
1005 PRINT#3,CHR$(15)" 

1007 PRINT#3,CHR$(15)CHR*(10) 
1010 A=41117 
1020 X=127 
1030 X*X+1 

1040 PRINT#3 / CHR$ ( 15 ) X ¿ ". 

1050 A*A+1 
1060 BMPEEK(fi) 

1070 IFB>128THENGOTO2000 
1080 C$=€HR*(B) 

1090 PRINT#3vCHR$(15)C$; 

1100 IFA-203 THEN CL0SE3 
1110 GOTO1050 
2000 B*B-128 
2010 C$=CHR$(B) 

2020 PRINT#3,CHR$(15)C$ 

2030 GOTO1030 


PALABRA" 

CLAVE" 


H 


Figura 2. A. Listado del programa. 
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conjunto de palabras clave, de las 
cuales quizas la más utilizada sea 
PRINT. 

El 64, como todos los ordenadores, 
almacena la información en base a 
unos y ceros, donde cada combina¬ 
ción tiene una correspondencia. Una 
agrupación de 8 es el conocido byte. 
Un byte sirve para representar mu¬ 
chas cosas, también caracteres a lía- 
numéricos, símbolos aritméticos y 
gráficos, números, etc. Si cada letra 

V_ w 

puede ser representada mediante un 
byte, PRINT necesitaría de 5 bytes. 
Realmente es una forma inútil de 
malgastar memoria. Si pudiéramos 
hacer corresponder a cada palabra 
clave un byte diferente, el ahorro en 
un programa largo sería notable, 
sobre todo si utilizamos muy a menu¬ 
do RESTORE o RETURN. Por otro 
lado, el intérprete BASIC necesita ir 
leyendo una por una todas las líneas 
de programa para ir ejecutándolo. 
Eso implica que lea letra por letra 
(byte por byte). Nuevamente, si con¬ 
siguiéramos representar las palabras 
clave con un solo byte. la velocidad 
de ejecución de los programas sería 
mucho más rápida. También habría 
que contar con que el intérprete debe 
comparar cada palabra que aparece 
en la línea con una lista de todas las 
palabras clave, a la que se llama lista 
de palabras reservadas. Dejamos de 
jugar a las suposiciones, esto es lo que 
hace en la realidad el ordenador, 
traduce cada palabra clave a un solo 
bvte equivalente. ¿Pero cuándo lo 
hace? Hagamos una primera consi¬ 
deración. Mientras el control del or¬ 
denador está en manos del editor, 
dispone de mucho tiempo libre, pues 
su principal misión consiste en co¬ 
municarse con el hombre por medio 
del teclado y la pantalla, para lo cual 
no necesita hacer grandes esfuerzos. 
Entonces, ¿por qué no dejarle que 
haga la tarea de ir convirtiendo las 
palabras clave en un solo byte a 
medida que las tecleamos? Al fin y al 
cabo el intérprete está normalmente 
mucho más sobrecargado intentando 
que el programa corra lo mas aprisa 
que sea posible. 

La palabra clave, una vez codifica¬ 
da, recibe el nombre de tokcn. Así por 
ejemplo un comando tokcnizado t s el 
bvte equivalente a ese comando. 



Eos tokcn son generados por una 
rutina específica, que es llamada por 
el editor cada vez que presionamos la 
tecla Rcturn, después de haber te¬ 
cleado una línea de programa, sea 
numerada o de ejecución inmediata 
(sin numerar). Siempre que introdu¬ 
cimos una línea en el ordenador, ésta 
va almacenándose en una pequeña 
área de memoria reservada para este 
fin. llamada huff'cr de entrada. La 
tecla Rcturn produce que las palabras 
contenidas en este buff'cr sean com¬ 
paradas con las palabras clave de la 
lista de palabras reservadas, sustitu¬ 
yéndose por su equivalente tokcni- 
zado. antes de ser depositada la línea 
en la memoria reservada a los pro- 


Dirección de Memoria (Decimal) 

2049 

2050 


2051 

2052 

Contenido* (Decimal) 

22 

08 


10 

00 


Direceion 
inicial de 
la siguiente 
1 i nea 


08*256 

+ 

22 

as 

2070 


Numero de 
la linea 
actual • 


Figura 4. Formato de la primera línea. 


Dirección de Memoria (Decimal) 2070 2071 

Contenido (Decimal) 


2070 

2071 

2072 

2073 

36 

08 


20 

00 


Dirección 
inicial de 
la siguiente 
1 inea 


08*256 

+ 

36 


Numero de 
la linea 
actual 


2084 


Figura 5. Formato de la segunda línea 
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gramas. Como la comparación debe 
hacerse de un modo ordenado con 
respecto a la lista cuando se encuen¬ 
tra una palabra, se utiliza como valor 
del token el número correspondiente 
a la posición que ocupa esa palabra 
reservada en la lista de palabras reser¬ 
vadas. Pero una vez tokenizacíct . ¿có¬ 
mo distingue el ordenador, si está 
tratando con una palabra clave, un 
número, un carácter, etc.? Pues muy 
sencillo, en el momento de la tokeni- 
zación se pone uno al bit de mayor 
peso del byte (es el equivalente a 
sumarle 128 en decimal). 

El resto de los caracteres conteni¬ 
dos en la línea escrita (todavía en el 
huffer de entrada) son almacenados 


definitivamente con su equivalente en 
código ASCII. 

En la figura 1 aparecen los caracte¬ 
res utilizados por el ordenador en la 
escritura de programas (se han omi¬ 
tido los gráficos y especiales) y el 
programa utilizado para su obtención 
(figura 1 A). 

La figura 2 muestra la lista de 
palabras BASIC reservadas y su to¬ 
ken equivalente, en decimal, a la 
izquierda (como es obvio, a cada 
número decimal menor de 255 se le 
puede hacer corresponder un solo 
byte). 

En 2.A. tenemos el listado del 
programa utilizado para obtener la 


lista de token. La línea 1070 compara 
los bvtes, para encontrar uno mayor 
de 128. que indica que estamos ante 
una nueva palabra clave. La lista de 
palabras reservadas comienza en la 
dirección memoria 41117. 

Pronto se hará evidente que en las 
figuras 1 y 2 aparecen símbolos co¬ 
munes, concretamente +. t.> , 

= y <. 

En la lista de token se trata de 
operadores aritméticos y lógicos. Sin 
embargo, en la de caracteres son 
tratados simplemente como eso. Por 
tanto en ambos listados tienen dife¬ 
rente código, aunque su aspecto es el 
mismo al ser impar. 


2053 2054 2055 2056 2057 205 2053 2060 2061 2062 2063 2064 2065 2066 2067 2068 2063 


143 

42 

42 

42 

6? 

79 

77 

77 

79 

68 

79 

82 

63 

32 

54 

52 

00 

y 

REM 

* 

* 

* 

c 

0 

M 

M 

0 

D 

0 

R 

E 

EsP. 

6 

4 

RETURN 


Equivalente 

ftSCII 


i 

2074 

2075 

2071 

2077 

2078 

2079 2030 

2081 

2082 

2083 


153 

34 

80 

82 

85 

63 

66 

65 

34 

00 

1 PRINT 

ii 

P 

R 

ü 

E 

B 

R 

•i 

RET 


Equivalente 

ñSCII 


10 POKE 2053,153 
20 POKE 2074,143 


Figura 6. Cambio de los token. 


10 PRINT^COPfflODORE 64 
20 REM"PRUEBR" 


Figura 7. Líneas con los token inter¬ 
cambiados. 
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Es de sobra conocido que el movi¬ 
miento se demuestra andando. Nada 
mejor que un corto ejempio para 
entender cómo se almacena cada 
línea. 

En la íigura 3 aparece un corto 
programa compuesto por dos líneas 
numeradas. Como se puede compro¬ 
bar, la utilidad del mismo es única¬ 
mente didáctica. 

Una vez tecleadas ambas líneas (y 
presionada la tecla Return), el orde¬ 
nador las almacena en la memoria, 
comenzando por la dirección 2049. 

La figura 4 muestra cómo ha sido 
almacenada la primera línea y la 
información contenida en cada direc¬ 
ción sucesiva. Ahora es cuando po¬ 
demos comenzar a hablar de forma¬ 
tos. Los dos primeros bytes (direc¬ 
ciones 2049 y 2050) contienen una 
importante información: el lugar 
donde se comienza a guardarla 
siguiente línea de programa. La nece¬ 
sidad de utilizar dos bytes se hace 
patente desde el momento en que 
(recordemos) con un solo byte sólo 
podemos obtener 256 posibilidades 
distintas. Sin embargo, el micropro¬ 
cesador puede acceder hasta a 64 K 
direcciones, que es el número de 
posibilidades que proporcionan dos 
bytes (2 16 —1). 

Para convertir un número hexade- 
cimal en su equivalente decimal, se 
recurre a un mecanismo de cálculo 
idéntico al empleado en la notación 
decimal, donde hay dígitos en la 



posición de las unidades, de las dece¬ 
nas, las centenas, etc. En el presente 
caso podríamos hacer una compara¬ 
ción útil con un número de dos 
dígitos (decenas y centenas), donde el 
primer byte sería equivalente a las 
unidades y el segundo a las decenas, 
sólo que en un byte hay 256 posibili¬ 
dades y sólo diez en una decena. En 
otras palabras, el número 99 se com¬ 
pone de 9 + 9 X 10, en el ejemplo, 22- 
8 es igual a 22 + 256 X 8 = 2 070. 
Observemos que esta línea termina en 
la 2 069. 

Los dos siguientes bvtes guardan la 
primera información que afecta a la 
línea de programa en sí, es el número 
de línea que hemos asignado. Nue¬ 
vamente se requieren dos bytes para 
que el número de línea pueda ser 
mayor de 255, aunque en este caso el 
mayor permitido es 63999. El proce¬ 
dimiento de cálculo es exactamente el 
mismo seguido anteriormente. En es¬ 
te caso es: 10 + 256 X 0 = 10, que 
corresponde exactamente a nuestro 
número de línea. 

En la posición 2053 vemos que 
aparece 143. que al comparar con la 
lista de token vemos que corresponde 
a REM. Desde la localización de 
memoria 2054 a 2068 están conteni¬ 
dos los equivalentes ASCII de los 
caracteres del resto de la línea. La 
posición 2069 actúa como separador 
con la siguiente línea, pero también es 
el código correspondiente a Return. 
Conviene no confundirlo con el espa¬ 
cio en blanco, que es el 32 en el 
código ASCII. Tampoco con el cero, 
cuyo código es 48. 


En la figura 5 tenemos la línea 20. 
Aunque se trata de un tipo diferente 
de sentencia, el formato utilizado 
para guardarla es el mismo: comienzo 
de la siguiente línea (2084), número 
de línea (20), token correspondiente a 
PRINT (153), caracteres ASCII y 
Return (00). 

Este ejemplo toma dos de los token 
más empleados. De todas maneras, si 
una línea dispone de varias senten¬ 
cias, el carácter dos puntos será quien 
indique los límites y finalmente apa¬ 
recerá el clásico 0 de Return, y dos 
ceros más de final de programa (el 
comienzo de la siguiente línea que no 
existe). Hagamos un experimento. 
Introduciendo los POKE indicados 
en la figura 6, cambiaremos entre sí 
los token , de tal manera que cuando 
volvamos a escribir LIST el programa 
aparecerá en la pantalla como se ve 
en la figura 7. Podemos comprobar 
que el cambio no ha sido aparente, 
pues si tecleamos RUN, aparece el 
mensaje de error de sintaxis. La 
conclusión es que el cambio ha 
sido definitivo. 

Cuando pedimos al ordenador que 
liste el programa, cada vez que exista 
una palabra tokenizada se hace la 
operación inversa, escribiendo la pa¬ 
labra como en un principio fue te¬ 
cleada. 

En el próximo número veremos 
algunos detalles particulares sobre 
como son ejecutados los programas, 
particularmente el funcionamiento de 
una útil rutina en código máquina, 
llamada CHRGET. 
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Man/.amón es el monstruo de las 
manzanas que avanza para zamparse 
la manzana, destruyendo los bloques 
defensivos que se oponen a su avance. 
El jugador tiene el mando de un láser, 
en la línea inferior de la pantalla, que 
es la única arma capaz de acabar con 
el monstruo. El láser se controla 
mediante tres teclas del teclado que se 
detallan al comienzo del programa, 
en las instrucciones. Al finalizar, el 
programa da los puntos conseguidos. 


10 REM *########### 

20 REM * # 

30 REM * MñNZñMON * 

40 REM * * 

50 REM ##****#** M* 

100 PRINT ,, 3 H : P=0:PQKE36879,127 : Z-150 • GOSUB360 

110 F'RI NT " 3" : P0KE56,28: PÜKE52, 28 : POKE650, 128: L=3175: S=0 : P0KE36878,15: 
: O=0\ P0KE36877»0 • 

120 P0KE36869,255:Z»Z-10 : IFZ<30THENZ=30 
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130 
140 
150 
160 
170 
188 
130 
200 

210 

•-;> ¿> 
kna Inn 

230 
2 4 8 

•~i *rr f¡ 

2 6 8 
7 L'.l. 


c. i 


r l »; 


.i 


c.o-.:.- 

298 

309 

l í: 
•" •» 

v *"> \*i 

\\ *~J fj 
2 1 : ;1* 

348 

330 


FORT=2iTQ470 

G=INT<6$RNJJ< 1 > > : P0KE36874, 150 

POKE7680+T+30728 ,0:POKE7680+T,209:FOKE7680+T,32 
IFG=2THENPÜKE7680+T,102+128 = POKE7680+T+30720i 0•PÜKE36874,0 
NEXTT : P0KE36874,0 : P0KE8185,62-P0KE3185+30720,4 

,Í— • hnl¿l • j- — x 

ñ=ft+F:PÜKE36876,230 =IFR=8185THEHP0KEñ,63 : PÜKEfl+30720,0:POKEE,32:GOTO540 

I FF'EEK ( Z) = 102+128RNDF = 1 THENñ=ñ+21 : F*-l : P0KE36875, 235 

IFPEEK <. fl) = 1 02+128RNBF=-1 THENR=fl+23 : F=1 : P0KE36375, 235 

I FPEEK<H >-60THEN540 

POKER, 63 : POKER+307<¡n. 2 

IFS-1THEN490 

FORT=0TOZ=NEXTT : P0KE36875,0:P0KE36876,0 
POKER.. 32 ; GETñ$ 

I Ffí$~ Z ” THENPOKEL , 32: L=L-1 
I FR$= !! / ” THEN F'OKEL , 32 : L=L+1 
í FL=8i63THEWL-3164 
IFL=8185THEN¡_=8184 
I Fñ$=" ’• flNH3=0THEHS= i: E=L 
IF S=0THEHPOKE36877, 0 
I F0-1THENP0KE36877, 0 = 0=0 
F’OKEL, 60 • PüKEL+30720, 0 
80¡U190 

PRI NT " ra[pM(!>ii**M>l'ífiNZRMOH i’ 


% 


X 


r-ir-. t ?. rr ’i fi 


i .. l 

■ i O 


•—«i“'¡ fs 

408 
413 

si ***** : 
M- ¿X l; . 

.“i ,- *t :"l 

*-f v> ( 

448 

458 

4 68 

* #• I* 1 

¿L, ■ ¡- > 
4 o -2’ 
490 

¡“i ’Tí 

. ;>-•) • i 
••• 

'*•■* J. 

¿ ••••: 


«. IT 


I! 



T *"»' 11 ni 

r r-. i . i i ¡ .2! 

I '. —: T *. ; ““ I 

r-. X ¡ ! : 


PR I NT 
PR I NT ” W ? ■' =IiEREÜHR ’’ 

PR I NT ” KB" 2 •- = I Züü í ERDfl 11 

ai" ESP RC10 =F IJEGO " 

SESPERfi. . . " 

FORT=0TQ511 • PGKE7768+T, PEEKÍ32768+T) : NEXTT 
FDRT=0TO3 

PORI=0707■REfiDB:PÜKE7648+T*8+I,B : NEXTI : NEXTT=P0KE36869,255 

k i Jr-.ri 

UH ¡ H16, 16, ib, ib.- 1 b, 126.< 126, 255.* 8.• 16.* 0.• 16,0, 16,0, 16 


.v 


-TR7,44v24,i26,255,235,126,44,126,219,255,255,169,129,149,126 


■ rr_ 

■i. 


cr — 

i „ ■ 
L_ 


. I. : 


i.f 


CT 


40 
550 
560 
570 
580 
590 
600 
610 
620 
63Ü 


=IFEC7S80THEHS=0:PDKEE+22,32:GOTO250 

p j’“; •“« 3T flj "* “7 i / p -**C¡ 

IFPEEK<E >=í 02+i28THENF-P-1tí■8*0 : POKEE,32 = POKEE+22,32:P0KE36877,150^0=1: 
G0T02 50 

IFPEEK ::E>=63THEHF=P+500: P0KE36877,0 : P0KE36876,0 : GOTO! 10 

POKEE,61 ; FOKEE+30726,2 : POKEE+22,32:FOKEL, 60 = POKEL+30720, B■ GOTO250 

P0KE36376,0:P0KE36875, B■ P0KE36377, B■ P0KE36869,240 
PR INT" □" 

PR I NT ” SsííMíIWSOSF’UNTOS : "; P 
IFP>HPTHENHP=P 
PRINT"MWRECORD : "íHP 
PR I NT" MBOTRfi VEZ CS/TO? " 

GETR$:IFH$="S"THENZ»150:GOTO11 B 
IFñfO"N"THEH600 

PRINT" : PRINT" WWÍKKRDIOS.":FORT*1T01500 = NEXTT 
PR I NT " !ST' : PÜKE36879,27: END 
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Aquí está el que. sin duda alguna, 
ha sido el rey entre los programas de 
juegos durante mucho tiempo; el 
CÓ MECOCOS, que os presentamos 
en una sencilla versión adaptada al 
VIC-20 y que esperamos que os haga 
pasar buenos ratos. Hl programa está 
escrito en BASIC por lo que no es 
demasiado rápido, pero ello no lo 
hace menos entretenido ni mucho 
menos. Hl Comecocos se maneja con 
cuatro teclas para moverlo en cual¬ 
quier dirección por el laberinto. Hl 


juego consiste en comerse todos los 
puntos que hay por los pasillos del 
laberinto pero teniendo cuidado para 
no ser comido por los monstruos que 
andan por allí. Inicial mente se dispo¬ 
ne de cinco vidas, que se van perdien¬ 
do cada ve/ que nos topamos con un 
monstruo. Hl programa termina 
ciiando se acaban las vidas, o bien 
cuándo el comecocos se ha zampado 
todos los puntos. Has instrucciones de 
juego van incluidas al comienzo del 
programa. 


VIC-20 4- KXPANSION I)K 16K 


Variables utilizadas: 

A continuación damos una lista de 
las variables utilizadas en el progra¬ 
ma y lo que representa cada una de 
ellas: 

VR Vidas restantes. 

MO Carácter Monstruo. 

PM Carácter Pacman (Comeco¬ 
cos). 

PP Posición Pacman (Comeco¬ 
cos). 

SC Puntuación. 

MPC Posición Monstruo. 

PA Pared del laberinto. 
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1 REM ******************** 

2 REM * COMECOCOS * 

3 REM * $ 

4 REM *CÜMMGDORE MRGAZINE* 

5 rem ******************** 

10 DIMMP7¿<4>: 

20 VR=5 

25 POKE 36879,141 
30 PRINT M nH8 ************** 

35 PRINT" COMECOCOS" 

40 PRINT" ************ 

45 PRINT"WRW COMETE LOS PUNTOS" 

50 PRINT"»>»»»=C0I1EC0C0S" - PRINT"M»»t<:=MONSTRUO" 

55 PRINT"MIIPfiRfi MOVERSE" 

56 PR I NT 

60 PRINT"H1»DERECHfl F=ARRIBfl" 

65 PRINT"MB=IZQUIERDA S=ñBñJÜ" 

70 PR INT "JOUSPULSfl UNfi TECLfii" 

100 GET -F$: IFF$* ,,n THEN 100 

195 PQKE36879,91 : PRINT"[T j 

196 IF VR-0 THEN GÜTO5000 
200 RESTORE : FORI=4096 TÜ4601 
205 FOR J«1T023 

210 IFP=0THEN RERDR,P 
220 POKEI,R 
230 P=P~1 
240 NEXTI 

250 M0«24:PA=160•PM*42 : PP=4525:SC=0 

253 MPX (1 > =4166 : MPX (2 ) =4180 : MPX < 3 ) =4386 : MP/Í (4 ) *4400 

255 GÜSUB500 

260 FOR L*1 T04 : PÜKEMPX(L),MO : NEXT 

261 IF SC=129THEN GOTO5500 

262 FQRDD=1TQ4 

263 GETR$ : IF R$=""THEN270 
265 GÜSUB540 

270 V*INT C RND C1)#4+1 ) 

280 IFV*1THENX*1:GOTO320 
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290 

300 

310 

320 

322 

325 

327 

330 

335 

340 

344 

345 
347 
350 
400 
410 
420 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
593 

595 

596 
600 
610 
620 


IFV«2THENX»-22 : GÜTÜ320 

IFV=3THENX»-1¡GQTD320 

IFV*4THENX«22 : GÜTÜ320 

IFPEEKCMPX<DD)+X)«PfiTHEN 270 

IFPEEK <MPX<DD >+X)=MGTHEN270 

IFPEEK <MPX<DD)+X)=PMTHEN400 

IF PEEK < MPX < DD ) +X > = S 46THEN POKEMPXCDD), 46 

IF PEEK í MP5Í < DD> +X> «32THENP0KEMPX < DD >, 32 

print ,, hvidrs ,, ;vr;" puntos"; se 

MP7Í< DD >“MPX(DD > +X 

P0KE36878,15 : FQRQQ=1T05 : P0KE36877,150 : NEXT 
PÜKE36873,0:P0KE36877,0 


NEXTDD 

GOTO260 

PRINT ,, 3" =P0KE36879i 141: F0RI = 1T06: PRINT" 
FORT*=1TO1000 : NEXT 


"TflBCI)"CHOMP":NEXT:VR-VR-1 


G0T0195 

PÜKEPP.PM 


RETURN 
POKEPPj 32 
RETURN 

IFñ$= u F"THENZ=-22:GOTO590 
I FR$= " S" THENZ= S 22 : GOTO590 
IFfi$="M"THENZ=1 : GOTO590 
IFfi$="B ,, THENZ 5S ~l : GOTO590 


RETURN 

IFPEEK<PP+Z)»PñTHEN RETURN * 
IFPEEK<PP+Z)*MOTHEN GGTO400 
IFPEEK CPP+Z>=46THENSC=SC+1 


FOR fifi*1TOS:PÜKE3687S, 15* P0KE36876,250•NEXT:P0KE36878,0•P0KE36876,0 


GOSUB 520 
PPaPP+Z 
GOSUB 500 


630 RETURN 

1100 DHTR32,22,32,22,32,3,160,17 
1110 DFiTFl32,2,32,3, 160, 1,32, 1 
1120 DfiTfi46,13,32,1,160,1,32,2 
1130 DfiTfi32,3,160,1,46,1,160,1 
1140 DñTfi32,1,160,4,46,1,160,4 
1150 DflTfi32,1,160,1,46,1,160,1 
1160 DRTFI32,2,32,3 
1170 DRTR160,1,46,1,160,1,46,11 
1180 DRTR160,1,46,1,160,1,32,2 
1190 DRTR32,3,160,1,46,1,160,6 
1200 DRTR46,1,160,6,46,1,160,1 
1210 DRTR32,2,32,3,160,1,46,4 
1220 DRTR32,1,46,1,160,1,46,1 
1230 DRTR160,1,46,1,32,1,46,4 
1240 DRTR160,1,32,2,32,3,160,1 
1250 DRTR46,1,160,4,46,1,160, 1 
1260 DRTR46,1,160,1,46,1,160,4 
1270 DRTR46,1,160,1,32,2,32,3 
1280 DRTR160,1,46,1,160,4,46,1 
1290 DRTR160,1,46,1,160,1,46,1 
1300 DRTR160,4,46,1,160,1,32,2,32,3 
1310 DRTR160,1,46,1,160,4,46,1 
1320 DRTR160,1,46,1,160,1,46,1 
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1330 DATR160, 4,46,1,160,1,32,2 
1340 DRTA32,3,160,1,46,4,32,1 
1350 DRTR46,1,160,1,46,1,160,1 
1360 DATA46,1,32,1,46,4,160,1 
1370 DRTR32,2,32,3,160,1,46,1 
1330 DRTR160,1,46,4,160,1,46,1 
1330 DRTR160,1,46,4,160,1,46,1 
1400 DATA160,1,32,2,32,3,160,1 
1410 DATA46,3,160,2,46,5,160,2 
1420 DRTA46,3,160,1,32,2,32,3 
1430 DATA160,3,46,1,160,3,46,1 
1440 DATA160,3,32,2,32,3,160,3 
1450 DATA46,4,160,3,46,4,160,3 
1460 DATA32,2,32,3,160,6,46,1 
1470 IIRTR160,3, 46, 1, 160,6,32,2 
1480 DRTR32,3,160,1,46,6,160,3 
1430 DATA46,6,160,1,32,2,32,3 
1500 DATA160,1,46,1,160,13,46,1 
1510 DRTR160,1,32,2,32,3 
1520 DRTR160,1,46,7,32,1,46,7 
1530 DATA160,1,32,2,32,3,160,17 
1540 DATA32,3,32,22,32,21 
1550 DRTR32,0 
5000 P0KE36873,141 : PRINT"SE RCRERRON LRS VIDAS 
5010 PRINT" JÍH AS MUERTO" 

5020 PRINT"JILO SIENTO MUCHO" 

5025 PQKE36878,15 
5030 F0RPP=255T0128STEP-1 
5040 PQKE36876,PP 
5050 NEXT 

5060 P0KE36873,27:P0KE36876,0:P0KE36878,0 
5070 END 

5500 PRINT" n" :P0KE36878,15 

5510 P0KE36873,141 : PRINT"BRAVO..." 

5520 PRINT "JILO HRS CONSEGUIDO" 

5530 PRINT"JflV TE QUEDAN" 

5540 PRINT"»"; VR;"VIDAS" 

5550 FORTT =128T0255 
5560 P0KE36875,TT 
5570 NEXT 

5580 P0KE36879,27•P0KE36878,0:P0KE36875,0 
5530 END 























Algunos lectores nos han escrito 
preguntándonos si no tendríamos por 
ahí. a mano, una buena rutina para 
renumerar programas. Pues bien, sí la 
tenemos y aquí os la presentamos, 
tanto a los que nos la habéis pedido 
como al resto de nuestros lectores, 
incluidos aquellos que no saben lo 
que es una rutina para renumerar 
programas. 

Para estos últimos diremos que 
RENUMERADOR es un programa 
que permite modificar todos los nú¬ 
meros de línea de las líneas de un 
programa haciendo además que el 
salto entre dos líneas consecutivas sea 
constante en todo el programa. Por 
ejemplo y para aclarar un poco las 
cosas supongamos que tenemos un 
programa cuyos números de línea son 
1, 3, 7, 8, 9, 23, 25... pues bien, con 
RENUMERADOR podemos cam¬ 
biarlos automáticamente por 10, 20, 
30, 40, 50, 60... o. en lugar de saltar de 
diez en diez podemos saltar de cinco 
en cinco o de cien en cien. 


Además, esto es lo más importante 
de una rutina para renumerar, ella 
sola se encarga de modificar todos los 
valores de los (¡O TO y de los 
(¡OSUR para qtie el programa renu¬ 
merado funcione igual de bien que el 
programa original. 

El programa de más abajo se en¬ 
carga de cargar la rutina, que está 
escrita en lenguaje máquina, en la 
memoria del ordenador. Para ello hay 
que copiar el programa con cuidado, 
para no equivocarse con las DATA y 
una vez comprobado, y después de 
guardarlo en el cassete por si hay 
problemas, hay que escribir RUN. El 
programa incluye dos controles para 
saber si nos hemos equivocado al 
copiarlo. Si aparece la fracesita SU¬ 
MA ERRONEA significa que algún 
número de alguna DATA está mal, 
mientras que si aparece NUMERO 
DE VALORES ERRONEO quiere 
decir que nos hemos comido algún 
número. En cualquier caso , cuando 
\ el programa esté correcto, aparecerá 
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10 REn **#*^.^^^*34í*^#'*###*** 

15 REM * RENUMERfiDÜR * 

20 REM * C0MM0D0RE MfiGfiZINE * 

25 REM M*****mM*%M%mm*% 

30 REM 

35 1=50505 : T=0 : E=0 
40 REFfDFE IFA=-1THEN55 
45 P0KEI,A : 1=1+1 
50 T=T+R : GOTO40 

55 IFT052549THEN PRI NT " AWSUMA ERRONEA" • E=1 

60 IFIO50928THENPRINT"KWNUMERO DE VALORES ERRONEO"•E=1 

65 IF E=1 THEN GÜTQ80 

70 PR I NT"CDffiPJT I L I ZA SYS<50505),INICIO,INCREMENTO" 

75 PRINT"APARA RENUMERAR CUALQUIER PROGRAMA" 

80 END 

85'DATA32,253,174,32,107,169,165 
90 DATA20,133,53,165,21,133,54 
95 DATA32,253,174,32,107,169,165 
100 DATA20,133,49,165,21,133,50 
105 DATA32,142,166,32,201,198,32 
110 DATA201,198,208,33,32,2,198 
115 DATA32,201,198,32,201,198,208 
120 DATA3,76,212,198,32,201,198 
125 DATA165,99,145,122,32,201,198 


CBM 64 

al poco tiempo la frase UTILIZA SYS 
(50505), INICIO, INCREMENTO. 
ESto quiere decir que la rutina está 
bien cargada en memoria. Ahora 
podemos escribir NEW, va que, aun¬ 
que borremos el programa, la rutina 
en lenguaje máquina sigue en memo¬ 
ria. En este momento podemos escri¬ 
bir cualquier programa, o cargarlo 
desde cinta o desde el diskette. Para 
renumerarlo sólo hay que escribir 
SYS (50505), inicio, incremento, don¬ 
de inicio es el primer número de línea 
mientras que incremento es el salto 
entre líneas. Por ejemplo escribiendo 
SYS (50505), 10. 10 al cabo de un 
momento, el programa habrá cam¬ 
biado sus números de línea siendo el 
primero 10 y saltando de diez en diez. 

Esperamos que esta rutina os sea 
de la mayor utilidad a la hora de dejar 
bonitos los programas, o cuando 
necesitéis meter líneas entre medias y 
no tengáis sitio para hacerlo. 

Ah. se nos olvidaba, si en en el 
programa original hay algún (¡O TO 
o (¡OSUR a una línea que no exista, 
la rutina de renumerar pone como 
número de línea 65535,1o que permi¬ 
te detectar fácilmente errores de este 
tipo. 
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134 

135 
140 
145 
150 
155 
1.60 
165 
170 
175 
180 
185 
180 
195 
200 
205 
210 
215 
220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

260 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 


365 


370 


^8165,98,145, 122,32,13,198 
DATA240,226,32,201,198,32,201 
DRTR198,32,201,198,201,34,208 
DRTfll1,32,201,198,240,197,201 
DRTR34,208,247,240,238,170,240 
DATA138,16,233,162,4,221,235 
DRTR198,240,5,202,2178,248,240 
DRTR221,165,122,133,59,165,123 
DRTR133,60,32,115,0,176,211 
DRTR32,107,169,32,32,198,165 
DATR60,133,123,165,59,133,122 
DRTR160,0,162,0,189,0,1 
DRTR240,17,72,32,115,0,144 
DRTR3,32,82,198,104,160,0 
DRTR145,122,232,208,234,32,115 
DRTR0,176,8,32,97,198,32 
DRTR121,0,144,248,201,44,240 
DATA186,208,152,165,53,133,99 
DRTR165,54,133,98,76,142,166 

DRTR165,99,24,101,49,133,99 
DRTR165,98,101,50,133,98,32 
DRTR201,198,208,251,96,32,2 
DRTR198,32,201,198,32,201,198 
DRTR208,8,169,255,133,99,133 
DRTR98,48,14,32,201,198,197 
DRTR20,208,16,32,201,198,197 
DRTR21,208,12,162,144,56,32 
DATR73,188,76,223,189,32,201 
BATA198,32,13,198,240,209,32 
DRTfll14,198,230,251,32,165,198 
DRTR230,45,208,2,230,46,96 
DATA32,114,198,198,251,32,141 
BATR198,165,45,208,2,198,46 
DRTfll98,45,96,32,124,198,160 
DRTR0,132,17,132,251,96,165 
DRTR122,133,34,165,123,133,35 
DRTfll65,45,133,36,165,46,133 
DRTA37,96,164,17,200,177,34 
DRTR164,251,200,145,34,32,190 
DRTA198,208,1,96,230,34,208 
DRTA236,230,35,208,232,164,17 
DATA177,36,164,251,145,36,32 
DATA190,198,208,1,96,165,36 
DRTA208,2,198,37,198,36,76 
DATA165,198,165,34,197,36,208 
DRTR4,165,35,197,37,96,160 
DRTA0,230,122,208,2,230,123 
DATR177,122,96,32,51,165,165 
DRTR34,166,35,24,105,2,133 
DRTR45,144,1,232,134,46,32 
DRTA89,166,76,116,164,0,137 
DATA138,141,167,-1 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 

Sistema Commodore 
Puede Hacerle Ganar 5.ooo Pta& 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN (TANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO V. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.(100 \>T\< 


■ LA DECISION SOBRE LA PUBLICACIOÍ 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZI K”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD I L 

TEMA ELEGIDO Y LA ORIGINA LID A 1 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOP . 


■ ENVIAR A: 

CONCURSO COMMODORE MAC'Tí 








w 



C/Bravo Murillo, 377. Madrid -28002 
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en la negrura del espacio exterior a 
nuestra galaxia, sólo puede verse la 
mira de nuestro láder y una navecilla 
invasora que hay que destruir para 
conseguir puntos. El programa inclu¬ 
ye instrucciones al principio sobre 
cuáles son las teclas que hay que 
utilizar para desplazar la mira del 
láser y para disparar. La navecilla 
enemiga no se está quieta un solo 
momento, por lo que hay que ser 
bastante hábil para cazarla. El tiempo 
es limitado, y al acabar la partida el 
ordenador indica los puntos conse¬ 
guidos y escribe una frasecilla comen¬ 
tando si se ha hecho bien o no tan 
bien. Hay nueve niveles de dificultad, 
desde el nivel nueve para principian¬ 
tes al nivel uno para expertos. 
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10 REM #**#####*#**# 

20 REM * * 

30 REM * GALACTICA * 

40 REM * * 

50 REM #*#####*##### 

100 GOSUB240 
110 TI$="000000" 

120 P0KE36879 .»26 : PRI NT " 71" 

130 PGKE36873 > 8 : 14=7932 
140 FÜRB=38400TO38884+21:POKEB,7:NEXT 
150 GOSUB 640 
160 IFVAL<TI$»200THEN420 

170 IF PEEK < 197) =’9ANDA>7724THEM60SUB610 : A=A-22 
180 IFPEEK(197)=26RMDA<8120THENGOSUB610 : ñ=ñ+22 
130 IFPEEKCl37> = 17AHBA>7703THENGÜSUB610:A=A-1 
200 IFPEEK(137 > = 18ANDA<8136THENGÜSUB610:R=ñ+1 
210 IFPEEK í197 > =41THENGOSUB750 
220 GOSÜB580:IFÜ2=1THENPGKEÜ3,0 
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U. U I 


230 
240 
250 
260 
270 
280 
290 
¡00 
310 
320 
350 
360 
370 
380 
390 
400 
410 
420 
440 
450 
46.0 
470 
480 
490 
500 
510 
520 
530 
540 
550 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


ll 


X" 


GOTO150 

PÜKE36879,26 * PRI NT" 3»*#GRLRCT I CA##I 
PRINT* 1 «DIRIGE TU LASER" 

PRINT"» W M R D M 

PRiNr'mnsi fuego n 

PRINT"MWTIENES 2 MINUTOS " 

PRINT"MHPULSA UNA TECLA" 

GETQ$:IFO$* H "THEN300 

P0KE36879,30:PRINT"□«*»##### NIVEL *####■" 

PRIHT’LílSWriE 1 fi 9" 

GETT$ : IFT$* H "THEN350 
T1=VAL< T$ ) 

IFT1<1ORT>9THEH350 
L1=INT (TI > 

T1*INTCT1#1.3> 

IFT1-1THEHT1-2 
RETURN 

P0KE36879,26:P0KE198,0 
PRINT"MHNIVEL M .;L1 

PR I NT" MMCON " ; SC# < 10-1 NT < T1 / 1■3 > > j 11 PUNTOS " 

PRI NT 

SS^SC*<10-INTCT1/1.3>> 

IFSS> 15000THEN PR I NT " !#5EN IRLiMiT : END 
IFSS>13000THEN PRINT" W1UV BIENiBWT : END 
I FSS> 12000THENPRI NT "I ENlKfl" : END 
IFSS>5000THENPRINT"ftfrJO ESTA MALI»" : END 
IFSS>4000THENPRINT" MPUEDE PASARlMM" : END 
IFSS>3000THENPRIMT n n*BIGUE PROBANDO!»" : END 
IFSS>2000 THENPRINT"«REGULARiMM" : END 
IFSS>1000THENPRINT"EFLÜ JILLOiMfl":END 
END 

POKER+2,64:POKEA+3,91 ; POKEA+4,64:POKER-2,64:PÜKER-3,91 : PGKEA-4,64 
POKER+44,93:PÜKEA+66,91•POKER+88,93■PÜKER-44,93:POKEfi-66,91•POKER-88,93 
RETURN 

PÜKER+2,32 • POKEfi+3,32 • POKER+4,32 •’ POKER-2,32 : POKEfi-3,32 : PÜKEfl-4,32 
PQKER+44,32:POKER+66,32•POKER+88,32 * PGKEfl-44,32•PÜKEfi-66,32:PÜKEfi-88,32 
RETURN 

IFU201THENU3=INT <RND <1>*503>+7680■U2=l:PÜKEU3,0:RETURN 
U1 = INT C RND<1> *T1> 

IFU1O1THENRETURN 

U4-INT<RMDa>*4) + l 

IFU4=2THENU4*~1 

IFU4«3THENU4*22 

IFU4=4THENU4«-22 

U5=INT(RND(1> #4 > +1 

IFU4#U5+U3>8164+21THENU4--22 

IFU4#U5+U3<7680THENU4*22 

P0KEU3,32:U3-U3+U4*U5 : P0KEU3,0 : RETURN 

GGSUB8o0 

IFPEEK<A>O0THEN : RETURN 
H1=R-7680:H2=38400+H1 

PÜKEH2,2:P0KEH2-1,3:PÜKEH2+1,3•P0KEH2-21,3•PQKEH2-22,3 
PÜKEH2-23,3•P0KEH2+21,3 : PÜKEH2+22,3•PÜKEH2+23,3• 
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800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

300 

910 

920 

930 

940 

950 

960 

970 

980 


POKER* 42 : POKER-1,46:PGKEfl+1,46:PÜKER-22,46:POKER+22, 46 
POKER-21 , 46 = POKER-23,46 •' POKER+21,46 •' POKER+23,46 
OOSUB940 

F'OKEñ-21,32: PQKEñ-23, 32: POKER+21,32 : POKER+23, 32 
POKER, 32 : POKER-1,32: PGKER+1,32: POKER-22,32 : POKER+22,32 
P0KEH2,7:P0KEH2-1,7 = P0KEH2+1,7 = P0KEH2-21,7 
P0KEH2-23,7=P0KEH2+21,7:P0KEH2+22,7 


P0KEH2-22 


.• 7 


P0KEH2+23,7 


02=0:SC=SC+100:RETURH 


P0KE36877, 0:P0KE36878, 15 
F0RL=1T04 

FORM=250TO240STEF'-1 : P0KE36876, M: HEXT 

FORM=240TO250:P0KE36876,M:NEKT 

P0KE36876,0 : HEXT 

P0KE36878,0 ; RETURH 

P0KE36877,220 

FORL=15TO0STEP-.05 

P0KE36878,L 

F0RM=1T01 : NEXT 

NEXT:RETURH 
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Aunque la pendiente es bastante 
pronunciada, la nieve está en muy 
buenas condiciones por lo que no 
debes tener problemas para llegar a la 
meta. Este juego para el C-64 consiste 
en batir todos los récords del Slalom 
Gigante. Lo que ocurre es que en 
lugar de puertas y banderas, las 
marcas de pista son unos impresio¬ 
nantes pinos, que es necesario evitar. 
Además de los pinos, hay de vez en 
cuando alguna que otra placa de hielo 
que puede dar con. el esquiador en el 
suelo al menor descuido. Para llegar a 
la meta esquivando todos los obs¬ 
táculos hay que dirigir al esquiador 
mediante las teclas “Z” (izquierda) y 
“M” (derecha). Además el movimien¬ 
to continúa en la misma dirección 
mientras no se pulse la tecla corres¬ 
pondiente para cambiarlo. 

A continuación damos una lista de 
las variables utilizadas por el pro¬ 
grama: 


D=Dirección del esquiador. 

0=lzquierda. 

l=recto. 

2=derecha. 

V=Dirección del chip de video. 
Sfc=Porcentaje de pista recorrida. 
T=No. de pinos. 


Xl=Posición de pino. 
X=Posición horizontal del 
esquiador. 

S=Puntuación. 
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10 REM ********** 

15 REM * * 

20 REM * SLALOM * 

25 REM * * 

30 REM ********** 

35 REM 

40 PÜKE55; 255 : PÜKE56, 4 7 ■ P0KE53281,15 : POKE53280, 15 ; PRINT''^" 

45 B=1 ’ X s 140 ■ V=53248 • 3L—0 • S^O : F'QKEV+21 .• 1 

50 PÜKE2040, 193 : PQKEV+39,2 • FÜRI =0TÜ313 : REflDQ •* PGKE12238+1, Q : NEXT 
55 PÜKE54278,0 : P0KE54276,0:P0KE54273,0:P0KE54272,0 
60 POKE 54296,10:P0KE54278,240:PÜKE54276,129 

65 FORI = 12800TO12871: REflDfl : POKE I, ñ : NEXT : POKEV+24, 28 •* FÜR I -12544T012551 
70 POKE 1,0: NEXT '• POKEV, X : PGKEV+1,60 •' Z-PEEK ( V+31 > 

75 s=s+1 : sl~sl+i ; print 11 ■ if sl= 220 then 348 

80 P0KE54273,0:PE-PEEKCÍ97):IFSL=180THENGOSUB275 

85 IF PE- 12ANBD>0THENB=B-1 : POKE2040, 192+B : P0KE54273100 

90 IF PE=36ñNBB<I2THENB=D+l •' PÜKE2040, 192+B ; P0KE54273, 100 

95 IFX<45THEND=1:X=45 : POKE2040,192+B:GOTO110 

100 IFX>239THENB=1 : X*239 : POKE2040,192+B : GOTO110 

105 X=X+<D~1)*3 

110 POKEV,X 

1151FPEEK<V+31)=1THEN165 

120 IFRNB(1 K.7ANBT*0ANBSL<175THENT=1:X1 = INT < RNB<1>*30) 

125 IF PE=12ORPE=36THENPÜKE54273,0 

130 IF RNB < 1) C■ 1 ANDT=0ANBSL< 175THENPRI NTTftB < I NT ( RNB < 1) *30 > > j " ■ I ■ññññfihñi I M 
135 IF RNB C1)<.1ANBT=0ftNBSL<175THENPRINTTRB<1NT(RNB(1>*30> >;"3****":G0T075 


i"7cr 


T—2 • GOTO r 1 5 
T-3•G0T075 
T=4:GOTO75 


140 IFT=0THENF'R IHT = GOTOV ü 
145 IFT=1THENPRINTTRB<XI >> "IPir" 

150 I FT=2THENF'R I NTTRB < X1 > " KEi—— f " 

155 IFT*3THENPRINTTñB<Xl)"HBi_" 

160 IFT=4THENPRINTTRB < X1)"M I":T=0:G0T075 
165 IFSL>137THEN235 

170 IFPEEK (. 1104+ <X-20) X8>-1OR PEEK (1405+ <X-20)/S> = 1THENGOTO120 
175 IFPEEK<1106+ <X-20)X8 >=1THENGOTO120 

180 IFPEEK C 1144+ <X-20)/8 > = 1 ORF’EEK (1145+ < X-20)/8) = 1THENGÜTO260 
185 IFPEEK(1146+ <X-20) /8 > = 1THENGOTO260 

130 I FPEEK f. 1064+ C X-20 >X8 > = 1ORPEEK C1065+ C X-20) X8 > = 1 THENGOTO 120 
135 IFPEEK C1066+ <X-20>X8) = 1THENGOTO120 

200 IFPEEK <1024+ < X-20)X8) = 1ORPEEK C1025+ < X-20 >X8) = 1THENGOTO120 
205 IFPEEK<1026+ íX-20)/8) = 1THEHGQTO260 
210 P0KE54236,15 

215 POKE2040..136: FORI =60TO 170 : P0KE54273.175-1: POKEV+1.. I: NEXT 

220 POKE 54273,1 

225 POKE 2040,135 

230 FOR I = 1TO700: NEXT : P0KE54273.. 0 

235 POKEV0: POKEV+1 .• 0: POKE53280. 0: P0KE53281.-0: POKEV+24.20 
240 PRINT"HUIRLA SUERTE TE HRS ESTRELLRBO!" 

245 PRINT"M»WWkHñS COMPLETADO ELS" INTCSL/2) 1 "V. DE Lfl" 

250 PRINT" CARRERA. SF'UNTURC ION " INT C 8/4 > " PUNTOS. " 


^•crcr 

¿.DD 


>3 G0T0315 


260 3=8*2: P0KE54236.15: P0KE54276.. 0: P0KE54276.33: FORI=20TO5@ : PGKE54273.1 ; NEXT 
265 P0KE54236. 15 ; P0KE54’276.. 0 : F‘UKE542r6.. 123 ■ r'UKE5427:¿.> 0 
270 GOTO120 

275 PR I NT" ;(üü)íÍli»*B*»ÍÍi -7IF-71I-s “ímdr" 

280 RETURN 

235 P0KE54273.10:POKE2040.133:FORI = 1 TOS:FORJ=1TO20STEP1:F0R2=17020 : NEXT 
230 POKEV+1.50+J : NEXT J : FORJ=20TO1STEP-1 •' FOR2=1TO20 : NEXT : POKEV+1.50+J : NEXTJ. I 
235 FORI=1TO240STEP5:P0KE54273.I:NEXT:P0KE54273.0 
300 POKEV.0:P0KEV+1.0:P0KE53286. 0:P0KE53281.0:POKEV+24.20 
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305 PRINT : '3sHñS TERMINADO LA CARRERA i" 

310 PRINT" IMSPUNTUfiCIOH K"i I NT <3/4 >;"g PUNTOS. " 

315 F'RINT" MSSU3UIERES VOLVER A JUGAR7S/N" 

320 GETRí : IFñ$="S"THEN RUN 
325 I FRÍO " N " THEN320 
330 F’R I NT " :«WSFID I OS " 

335 END 

340 FORI-1TO240•P0KE54273,I:NEXT=FGKE54273,0:FOKE53280,0:P0KE53231.0 
345 F’OKEV, 0 : POKEV+1,0: PÜKEV+24,20 : F'R I NT " Tiriñ HA 1 " 

350 F’RINT"Mk.TE PASASTE EL POSTE DE LA META!" 

355 PRINT"W*1ALA SUERTE. " 

• »*“• • 

) O 

t i 




360 F'RINT" M FUNTUACI OH ", S; :l PUNTOS. " 


365 G0T0315 

370 DRTA0,56,0*0,56,0^0,56,0^0,16,0Í6, 124,0‘,0,187‘,0Í 1,57!. 0,’l, 57* 0.10, 185’ 
,375 DATR0,0,165', 0', 0,36,010, 68,818,66,810,34,018,35,018, 58, 01 0,36,810,72,01 


380 DRTR8,144,811,32,012, 64,81 33 (,£.*?cpc>¡ADd£L ) 

385 DRTR8,56,0,0,56,0,0,56,0,0,16,0,0,124,0,0,187,8,1,57,8,1,57,0,0, 185 
398 DAT A0,0,165,0,0,36 ,0, 0, 68, 0,0 , 66 ,8, 0 , 42 ,0, 0 , 38 , 0,0,50 , 0,8 ,33, 0 , 0,64,128 
335 DATA8,128,64,1,0,0,2,0,0,93 

480 DATA0,56,0,0,56,0,0,56,0,0,16,0,0,124,0,0,187,0,1,57,0,1,57,0,0,185 
485 DATA0,0,165,0,0,36,0,0,68,0,0,66,8,8,42,0,0,38,0,0,38,0,0,33,0.0,16,128 
410 DRTA0,8,64,0,4,32,0,2,16,99 

415 DRTR0,0,010,0,010,0,010,0,010,0,010,0,0|0,0,0J 0,0, 0J 0, 0, 0» 0,0, 0) 0,0,0) 

M20 DRTA0,0,0J16,0,818,0,16)4,0,3212,8,6411,0,12810,123,012,66,641 

\á25 DATA0,0,010,255,0139_biüc.C. 12,5Mb 

(430 DRTA2,0,011,0,010,128,641 

, : 435 DATA0,64,12810,33,010,50,010,38,0)0,42,810,66,010,68,010,36,0»0,165,0 
L440 DRTA0,185,0|1,57,0»1,57,0»0,187,010,124,010,16,0|0,56,010,56.010,56,0/ 

445 DATA255,255,2551255,255,2551255,255 

450 DATA0,0,0(59,255,231)0,0,128)192,224*240»128,128,128|128,3,3|3,3,3»3,3,31 
455 DATA 192,192,1921192,192,192»192,192 

460 DATR0» 0,24,24160,126,1261255,3,3)7,15,31163,63,127»132,132,2241240,248 
465 DATA248,252,252,60,60,60,60,60,60,60, 68 
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W3MJQÍ? 

Con este juego para el C-64 echa¬ 
mos sobre tus espaldas una gran 
responsabilidad. Estás a cargo de un 
avión Harricr transportado por un 
portaviones y tu misión es destruir un 
submarino enemigo que se dirige 
hacia las costas de tu país. Sólo 
dispones de un minuto para comple¬ 
tar tu misión, y de todas las cargas de 
profundidad que necesites. Ten buen 
cuidado con las cargas de profundi¬ 
dad para no detonar una mina nu¬ 
clear puesta por tu propio ejército y 
que anda por los alrededores. En la 
parte derecha de la pantalla aparece 
un indicador de combustible. Si se te 
acaba cuando estés en el aire te 
estrellarás sin remedio, pero tienes 
siempre la posibilidad, antes de que 
esto ocurra, de volver al portaviones 
y aterrizar en él, eso sí muy muy 
suavemente. 

Las teclas para controlar el avión 
son: 

Z = Arriba 
C = Abajo 
= Izquierda 
= Derecha 

CBM-44 


Espacio = Lanzador de cargas de 
profundidad. 

Lo que sigue es una lista de las 
variables utilizadas por el programa y 
de su función: 

v Y, Y = Posición horizontal y verti¬ 
cal del sprite 0 (harrier). 


XI, Y1 = Posición horizontal y 
vertical del sprite 1 (submarino). 

X2, Y2 = Posición horizontal y 
vertical del sprite 3 (carga de profun¬ 
didad). 

CO = Chip de sonido. 

V = Chip de video. 


10 REM 

HñRRIER * 

• * 


15 REM * 
20 REM * 


25 REM * COMMODÜRE MflGRZINE * 


30 rem 

ob P0KE55,253:P0KE56,47 = F'RINT"¡T ■' V=53248 : C0=54272 = P0KE53281/0:POKE53280,2:F= 10 
40 FOR I =55816T056296 : PÜKEI, 6 : POKEI-CO, 160 •' HEXT: G=0 

45 F'OKEV+21 , 63 : PÜKE2040, 192: POKE2041.. 193 = POKE2042.. 194: POKE2043,195: POKEV+44,7 
00 PUKE2044,19b:POKE2045,196:POKEV+39,1:POKEV+40,14:POKEV+41,0:POKEV+42,21 

POKEV+43,7: F'ÜKEV+29,18: P0KEV+23,16 = FORI »0T0318 : REfiDQ: F’OKE 12288+1, Q: NEXT: X=26 
00 t = 133: X1 -29 : V1 = 160+1N T í RND C1 > #60 ) : POKEV, X: POKEV+1, V ■' D= 1: PQKEV+2, X1: POKEV+3, V1 
6 j : FURJ-0TO24 : FOR 1=553301055335 : F’OKEI+J*40,2 : POKEI+J*40-CO, 160 ; NEXTI , J 
70 F'OKEV+5, 160+1NT < RND< 1 >#60 > : POKEV+4,70+1 NTtRND< 1 >* 180 > 

75 F'R I NT" MíWBleleiid IMUa ya" : F'OKEV+8,210: POKEV+9,55: GOSUB200 

80 P0KE54296,1:PÜKE54278,240:P0KE54276,129:TI$="000000" 


pe; 

OJ 


F'R I NT " ¿MílllIMncTT I £MP0 
90 F'R I NT "^MülHRHIliai "; RIGHT$( TI$, 2> : P0KE55652+1 NT (F) #40,4 
95 X1-X1+D*2 ‘ IFX1>240THEH D=INT CRND <U *3-3 > =V1=160+1NT < RND(1> #60) 

100 I FX 1 <28 THEND= I NT < RND < 1 > *3+1 > : V1 = 160+1 NT i RND < 1 > *60 "> 

105 F'OKEV+2, X1: POKEV+3, V1 
110 PE=F'EEKU97> 

115 I FF'E=60fiHDX>60flNDX2=0THENX2=X : V2-V+8: G 1 =0: F=F-.1: P0KE53273 ,200 
120 IFX2>0THENGÜSUB210 
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125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 


( sJ 


II 


285 
210 
215 
220 
225 
230 
235 



245 

250 

255 

260 

265 


270 

275 

280 

285 

290 


305 
310 

“f -i cr 

O 1 • J 

320 

325 

330 

c 
• J 

340 

345 


O-J 

'3 k* t- 
...» 


365 

370 


37b 
380 
38 5 
390 
395 
400 


IFFC1THEN160 

IFPEO12fiNDPEO20flNDPEO47fiNDPEO44THENPOKE54272,0 • PÜKE54273, 0: GÜTÜ1 
PÜKE54273,108•PÜKE542725 223 
IFPE=12RNBV>50THENV=Y-2 
IFPE=47RNDX>28THENX==X~4 
IFPE=44ñNDX<230THENX=X+6 
F=F~.06-IFPE=20THENF=F-.1 
IFV>140THEN400 
IFF<1THENY=Y+G:GOTO175 
0=0 : GOTO185 

V«V+G=G=G+.1:IFY>140THEN400 
IFX>25fiNDX<59flNDV>133ñNDG>l.3THEN370 
IFX>25flNDX<59ñNDY>133THENG-0 : F=10 : Y=133 : GOSUB280 
POKEV,X•P0KEV+1,V•IFTI$="000100"THEN335 
GOTO90 

PRI NT " ■ ■ ■ H al ¡^íII^LjaLJlL^ 

RETURN 

X2-X2+.5 : IFY2>140THENV2=V2+Gl/2 
IF Y2< 141THENY2 S5 Y2+G1 
IFG1=0THENPÜKE54272,O:P0KE54273,40 
G1=G1+.3 
POKEV+7,Y2 
P0KEV+6.X2 

IF V2>230T HENY2=0:X2=0:POKEV+7,0:G1=0 
IFPEEK(V+30> = 10THEN260 
IFPEEK<V+30> = 12THEN295 
RETURN 

POKEV+2 > 0 • POKEV+3.* 0 • PGKEV+10,XI : P0KEV+11 ,Y1 • P0KE54296, 15 
FGRI-70TQ10STEP-. 3 •* P0KE54273, I : NEXT : PÜKE54273,0 : P0KE54272,0 
FORI=1T011:P0KEV+I,0:NEXT 

P0KEV+10^0 : PÜKEV+11..0 : PRINT 11 □KMWsHRS DESTRUIDO EL SUBMARINO! mmimi" 

F'R I NT " jQKfiiBRñVO ! ! ! '* 

PR I NT" mi IEMPO " ; RIGHT* ( TI $, 2 >; ” SEGUNDOS" 

G0TÜ425 

P8Éé?lI?¿ 1 í £§^¡54296, 15: P0KE53281,8 

F0RI =90TO0STEP-. 2: P0KE54273, I: POKE53280,1/10 ■' NEXT • P0KE54273,0: P0KE54272,0 
PQKE53280,0 : P0KE53281,0: POKEV+29,0: POKEV+23,0 

P0KEV+10, 0 : POKEV+11,0 : F'R I NT " IMS® 42HR8 ALCANZADO Lñ MINA NUCLEAR! ! U ! i i ! i" 
PRINT"WÍSÍTEH MAS CUIDADO!!!" 

PRINT" KiHAS RESISTI DO ",RIGHTÍCTI $ ,2);" SEGUNDOS." 

GOT0425 

P0KE54296,15:P0KE54276,0=P0KE54276,33 

FORI =255TO0STEF'-2 : P0KE54273,1 ■' NEXT = P0KE54273,0: P0KE54272,Q 
FORI=0TÜ11:POKEV+I,0:NEXT:POKE53280,0:P0KE53281,0 
PRINT"rDWJüSE ACABO EL TIEMPO!" 

PRINT"nfflsEEL SUBMARINO VA A DESTRUIR TU PAIS!!!!!!" 

PRINT"MMíIiLA QUE HAS ORGANIZADO!!" 

GOT0425 

POKEV, tí : P0KEV+1,0: PQKEV+10, X •' P0KEV+11, V = P0KE54296, 15 

FORI=70TO20STEP-.2:P0KE54273,I:NEXT:P0KE54273,0:P0KE54272,0 

FORI=1TO11:P0KEV+1,0:NEXT 

P0KEV+10,0 : P0KEV+11,0: pr i HT" ZWWafTE HAS ESTRELLADO EN TU F'ROP IO BARCO' ' " 

PRI NT"MÍMALA SUERTE!" 

GUTU4Z5 

POKEV,0:P0KEV+1,0:P0KEV+10,X : P0KEV+11,V : P0KE54236,15 

FORI=80TO30STEP~.2:PÜKE54273,I:NEXT:P0KE54273,0:P0KE54272,0 ' 
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FORI-1TO11:PQKEV+1,0:HEXI 

POKEV+10,0: P0KEV+11,0: pr i NT " HttflsfrE HRS ESTRELLADO EN EL MAR !!!!!’* 

PRINT"MUilALR SUERTE. " 

F'R I NT " íidüMttW pMpíüIíI»MbIp4.0TRO JUEGO <S/N >? " 

GETñ$:IF A$="3"THENRUN 
IF ATO " N " THEH430 
PRINT"XWADIOS" 

ENIi . . , i i , 

DATAS,0,0,0,0,0,132,0,0,192,0,0,240,0,0,252,3,0,255,255,132,255,255,252 
DATA63,255,255563,255,240! 31,240,0‘, 63,252,0! 63,0,0! 0,0,0! 0,0,0,‘0,0,0! 0,0, 
DATA0', Ú, 0,0', 0,0,0, tí, 0,0‘, 0,0,0 ; , 93 (AOiOM } , 


465 DATA 0 , 0 , 0 ', 0 , 0 , 0 ', 0 , 0 , 0 ! 0 , 0 , 0 ) 0 , 0 , 0 !. 0 , 56 , 0 ‘, 0 , 56,05 0 , 124 , 0 , 3 , 255 , 192 ', 127,255 
BATR 252 J 255 , 255 , 255 :. 255 , 255 , 252 ! 15 , 255 , 224 ! 0 , 0 , 0 ', 0 , 0 , 0 !. 0 , 0 , 0 ! 0 , 0 , 0 *, 0 , 0 , 0 ! 0 
DRTA 0 , 0 ! 0 , 0 , 0 ) 0 , 0 , 0 ) 93 >) 

DATR 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 4 , 8 , 16 , 2 , 8 , 32 , 1 , 8 , 64 , 0 , 136 , 128 , 0 , 127 , 0 , 0 , 127,0 
DATR 7 , 255 , 240 , 0 , 127 , 0 , 0 , 127 , 0 , 0 , 136 , 128 , 1 , 8 , 64 , 2 , 8 , 32 , 4,8 
DATR 16 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,99 , 

DATR 0 J 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 28 , 0 , 0 , 62 , 0 , 0 , 127 , 0,0 >„ 

DATA 127 , 0 ! 0 , 127 , 0 ! 0 , 62 , 0 ! 0 , 28 , 0 !. 0 , 0 , 0 .Í 0 , 0 , 0 ! 0 , 0 , 0 ! 0 , 0 , 0 ! 0 , 0 , 0 ! 0 , 0 , 0 ', 0 , 0 , 0 ; ' 

DAT A 99 , 128 , 0 , 32 , 18 , 1 , 8 , 233 , 0 , 4 , 99 , 63 , 1 , 48 , 84 , 32 , 19 , 8 , 1 , 89 , 109,22 
DATAS, 12 , 38 , 0 , 52 , 143 , 128 , 243 , 211 , 99 , 63 , 0 , 128 , 72 , 1 , 19 , 8 , 0 , 89 , 2,22 
DATA 39 , 0 , 2 , 18 , 76 , 149 , 2 , 64 , 1 , 39 , 4 , 7 , 91 , 16 , 0 , 19 , 8 , 54 , 1 , 109,22 


* i 
bJ/470 

*f 480 

Vi/ 485 
Cá -30 


TODAVIA NO TIENE UD. UN C0MM0D0RE-64? 



FACILIDADES 
DE PAGO 
FINANCIACION: 
De 6 a 30 meses 


SI Va TIENE SU COMMODORE-64 PASE POR NUESTRA TIENDA Y VEA NUESTRAS OFERTAS 
PARA COMPLETAR SU EQUIPO CON LOS MEJORES COMPLEMENTOS Y PROGRAMAS 


r 



A 


C/Aragón, 472 - Telf. 246 27 75 - Barcelona-13 


microinformatica 
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CAPITULO 1 



Bajo esta denominación se acos¬ 
tumbra a considerar incluidos un 
determinado tipo de periférico de 
reducido precio, pero como se verá, 
de elevadas prestaciones que permite 
implantar un diálogo fuertemente in¬ 
teractivo y eficaz entre el operador y 
el sistema vía el T.R.C. (Tubo de 
Rayos Catódicos) del mismo. 

FILOSOFIA DF OPERACION 

La primera precisión que se debe 
realizar es la no confusión del Lápiz 
óptico con el lector óptico de caracte¬ 
res o con el lector de código de 
barras. En efecto, mientras que estos 
dos últimos se utilizan para decodi¬ 
ficar la información digital (carac¬ 
teres OCR y barras) contenida en una 
imagen sobre papel u otro soporte, 
aquel tan solo puede proporcionar 
una señal lógica de la presencia o 
ausencia de un nivel luminoso ade¬ 



cuado sobre la pantalla TRC del 
sistema. 

Ambos procesos se diferencian fun¬ 
damentalmente como puede compro¬ 
barse en la fin. 1. 

En la que se observa como el lápiz 
•óptico se limita a proporcionar una 
señal de interrupción al sistema: señal 
que decodifica en términos del timing 
respecto a las señales de exploración 
de la pantalla, permite identificar con 
precisión las coordenadas X-Y (fila, 
columna) del punto luminoso sobre la 
misma. 


APLICACIONES DEL 
LAPIZ OPTICO 

Las principales aplicaciones de los 
lápices ópticos se encuentran en aque¬ 
llos campos en que interesa aumentar 
la interacción del operador con el 
sistema, simplificar el trabajo del 


mismo o bien, aumentar la velocidad 
de introducción e interpretación de 
datos durante el proceso. Huyendo de 
un análisis exhaustivo, que está fuera 
de los alcances de este trabajo, se 
podrán considerar al menos las si¬ 
guientes posibilidades: 

a) Trabajos por operadores no ex¬ 
perimentados: En determinadas apli¬ 
caciones docentes (y algunas de ges¬ 
tión) el lápiz óptico puede facilitar el 
trabajo de selección de datos u op¬ 
ciones sobre muestras en la pantalla, 
a operadores que posean la simple v 
modesta condición de poder leer los 
textos sobre la misma. 

b) Trabajos de seleeeión rápida de 
opciones en ambientes “ ruidosos " o de 
alto nivel de confusión: En estos am¬ 
bientes. la efectividad del operador, 
así como su rendimiento, decrece 
rápidamente con el tiempo, la utili¬ 
zación del lápiz óptico. Permite al 
simplificar las operaciones, que éstas 
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0 0 10 1 



ZONA 5UP ^ 


ZONA INF 
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lleguen a producirse en forma mecá¬ 
nica sobre los códigos existentes en la 
pantalla, al tiempo que se toman los 
datos (por teléfono, por ejemplo) 
elevando la fiabilidad del sistema. 

c) Trabajos de diseño asistido por 
ordenador: Es el campo más específi¬ 
co de aplicaciones de los lápices 
ópticos. A este respecto, cualquier 
programador que haya intentado en¬ 
frentarse a un simple diseño geomé¬ 
trico sobre la pantalla, contando úni¬ 
camente con sentencias PRINT, PO- 
KE o equivalentes, puede evaluar la 
conveniencia de poder utilizar una 
herramienta que “recoja - ' los carac¬ 
teres y colores de una muestra colo¬ 
cada sobre una zona de la pantalla y 
las traslade a otra en la que poco a 
poco y con las rectificaciones necesa¬ 
rias, se construye el diseño definitivo. 
Diseño, que puede ser luego archi¬ 
vado sobre disco o cinta bien con una 
utilitario “que salve 7 ’ el buffer de 
pantalla o bien en un fichero con 
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registros alfanuméricos (uno por lí¬ 
nea de la misma). 


HARDWARE Y SOFTWARE 
ASOCIADOS 

El hardware básico con que deben 
contar estos periféricos está intima- 
menté relacionado con el sistema de 
captación y consta, en esencia, de un 


elemento sensible a la luz (general¬ 
mente un fototransistor o un fotodio- 
do). un acondicionador de señal y en 
algunos casos como se verá, una 
bascula o “lacfh’\ que permite me- 
morizar el pulso recibido, así como 
un pulsador que pone ON v Oí F la 
íunción del periférico. 

El software necesario depende, por 
supuesto, de la función final a reali¬ 
zar, pero de las posibilidades de 


interpretar la interrupción que inclu¬ 
ya el sistema operativo. 


REALIZACION Y 
PROGRAMACION 
DEL PERIFERICO 

A continuación se describen reali¬ 
zaciones distintas del lápiz óptico, 
sobre distintos microordenadores 
(CBM 4000-8000 y VIC-20) con los 
que el autor ha tenido ocasión de 
experimentar. 

LAPIZ TOTALMENTE 
CONTROLADO POR SOFTWARE 

En sistemas tales como el CMB 
4000 y 8000 (también es válido para 
los viejos 3000 y 2000) y, en general, 
para cualquier equipo que no cuenta 
con prestaciones para lápiz óptico, 
implementadas en hardware y soft¬ 
ware de origen (como las del Y IC-20). 
puede montarse fácilmente un simple 
circuito como el de la figura 2. 

El funcionamiento del mismo a 
nivel circuital es bastante sencillo: 

Las dos puertas NAND forman 
una báscula elemental RS, que es 
activada por el paso del transistor TI 
del estado de corte al de saturación, al 
recibir un nivel adecuado de excita¬ 
ción luminosa sobre su base, lo que 
provoca que se aplique un "cero" al 
terminar I del CD401 1 (SET) hacien¬ 
do que la salida 4 pase a “0" desde su 
estado inicial a "1", permaneciendo 
enclavada en ese estado hasta que se 


f igura 2.1. Circuito. 




Figura 2.2. Placa de circuito impreso. 


Figura 2.3. Señales. 















































































Figura 2.4. Conexión al ordenador. 
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Figura 4. Organización interna de la VIA. 


aplique un kk 0” al terminar RESET. 

El conjunto puede encerrarse en 
una caja como la de la figura 3 y es 
inevitable utilizar un tubito de plás¬ 
tico o de metal para encerrar el 
fototransistor con su lente debida¬ 
mente protegida de reflexiones la¬ 
terales. 

Para un correcto funcionamiento, 
la secuencia de las señales debe ser 
como la indicada en la figura 2.3. 

Es fácil obtener las señales necesa¬ 
rias para el RESET a partir del CB2 
de la 6522 VIA del pon del usuario, 
aunque para conseguir utilizar el 
mismo, es necesario programarlo pre¬ 
viamente. Para ello es una buena 
ayuda el contar con la descripción de 
la organización interna de la VIA que 
puede verse en la figura 4. 

Como se ve en la misma, el CB2 
ocupa los bits 7, 6 y 5 de la dirección 
59468. Por ello y enmascarando ade¬ 
cuadamente para no afectar al resto 
de los bits, se pueden utilizar las 
siguientes sentencias para controlar 
esta línea de E/S desde el Basic: 

POKE 5*3467, PEEK (53467) 

AND 277 (PONER CB2 OUT) 

POKE 53468, PEEK (53468) 

AND 31 ÜE 132 (CB2 BAJO) 

POKE 53468, PEEK (53468) 

AND 31 OR 224 (CB2 ALTO) 

De otra parte, el estado de la salida 
4 PAO puede ser leído con facilidad, 
sin más que consultar la DDR de la 
VIA en 59471 toda vez que si no se 
altera la ORA (59457) todos los bits 
PAO a PA7 se encuentran definidos 
como entradas (v normalmente a 
“l”). 

Una vez aclarados estos conceptos. 
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Figura 6.2. Diagrama de flujo. 


se puede probar el funcionamiento 
del lápiz en dos fases: 

a) Probar el funcionamiento del 
lápiz óptico sin conectar el ordena¬ 
dor. midiendo VCE y posteriormente 
con el polímetro (o con una sonda) el 
basculamiento del RS (la alimenta¬ 
ción se obtiene del mismo ordenador 
a través del conector del cassette). 
Durante estas pruebas se puede orien¬ 
tar el lápiz óptico hacia una luz 
próxima para comprobar la sensibi¬ 
lidad del transistor. 

b) Probar el funcionamiento bajo 
control del ordenador. Para ello se 
debe entrar el programa de la fisura 
5 . 

Este programa visualiza el conteni¬ 
do del pon que será 255 (=11111111 
binario) si no se excita la base de TI. 

Las principales sentencias se expli¬ 
can a continuación: 

55: Realiza la secuencia CB2 OUT/ 
BAJO/A LIO para preparar los es¬ 
tados del RS. 

60: Se lee el port v se imprime. 

75: Si la DDR es 255. se ha 
detectado un pulso y el programa 
salta al lazo de detención en la 78. 

79: Si se detecta un pulso y poste¬ 
riormente se salió del lazo en 78: 
pulsando una tecla cualquiera se rea¬ 
liza CB2 BAJO (RESERT). 

111/120/300: Subrutinas OUT/ 
BAJO/ALTO. 

Al hacer RUN al programa con el 
lápiz situado sobre la parte derecha 
de la pantalla, aparecerá una colum¬ 
na de w "255'' en el lado izquierdo de la 
misma. Al llevar el lápiz sobre ésta, el 
valor visualizado debe cambiar a 
■'254" e interrumpirse la ejecución 
hasta que se pulse una tecla cual¬ 
quiera. Incidentalmente puede ser ne¬ 
cesario ajustar P1 (o el brillo, o 
ambos) hasta obtener un funciona¬ 
miento fiable. 

Pasada esta prueba se puede pro¬ 
ceder a experimentar con un program 
de aplicación, como es el caso del 
Asituador de letras" del programa de 
la misma. Al llevar el lápiz sobre ésta, 
el valor visualizado debe cambiar a 






















































.1.0 REM BV J „ ROCR DTÜELECTRON I CR E.. U. P - C * ~IJ - M „ jm******* 
40 REM ENPLORRE PÜRT 
50 PRI NT 11 " 

55 GOSUB1 18 ; GOSUB i ÑO : GÜ8UB30© : REM CONTROL L „ O. =*»**«= 

C0 PRIHTPEEfe: 5947 i >, " " : REM LEER DDR « 

m POR I * í 701 00 : HE NT : REM TEMPO RI2RR ===== 

75 I FPEEKT 5947 i >< >255THENPR I NT*' " : PR I NT" 

76 GOTOSO 


PULSE SPñCE PRRR RESET":G0T07E 


78 GETFlT': IFR$~" "THEN78 


»»*•» ***** M14 t 


79 GOSUBi 20:REM RESET 

80 GOT050 

1.10 REM CB2 OUT TTTTTTTTTTTT 

111 P0KE59467,PEEK< 59467>RHD277:RETURN 
1.20 REM CB2 LOW-RESET ************ 

121 P0KE59468,PEEK<59468 >RND31OR 192 :RETURN 
308 REM CBS HIG ************ 

301 PÜKE59468,PEEfcX59468 >RND31ÜR224:RETURN 
RERDY. 


Figura 5. Prueba del lápiz óptico. 


L E • I B í J - R‘...i U H D 1U« E L. E C T R ONIC R E,, U. P - C - - I...I H M „ 7 ** :+•: 7 $:•): :fc # * 

19 REM DEMO S1TURDOR DE LETRfiS ******* 

20 G0TÜ10O0 

110 R E M C B 2 OIJ T ** * * * * ** * * ** 

111 P0KE59467, PEbKT 5946? >RND2?7 : RETI IRN 

’■:! 0 ? ? M ? 2 ’ L ü W- R E S E T * * * * * * * * **:+:* 

12.1. P U K E5 9 468, P E E K < 59468 > R M D 3.1.0 R .19 2 : E: E T U R N 
300 R E M C B 2 HIG * .*** ** * * ** * * 

E¡ tí 1 P u K E 5 ‘9 468P E E K < 59468 > ñ N D 3 :L O R224 : R E T N R N 
.1.000 ñ*32900 : PR I NT 11 " .... 

1015 P RIN T 1 ' C El R R f: T E R ? 1 * 

1816 GETR* : I FR$- " " TRIEN 1 tí 16 

1U1 i L.-Rlí H ,t : IF-L .><::• 4 1 HENL' ss U~“ 64 : REM CONVERSION RSf:—PflR'E 
!• 0:1 - 0 GOSUB.1. .1. tí : GOSUB 120 :<GÜSUB30tí : REM CONTROL 1 „ n. 

102O FORI«1TO750 : REM EXPLORAR «=««:««««« 

.1. íi38 B=PEEI« ñ+1 >: POKER +1 , 1 6O 
1035 F ORR*OT 015:NEXT 

.1. Oo o 1FF REK'.. 594 71 X. .*255 I HENPOKEñ + IC : I «=751 : GOT 01 RPltí ; RFN DETFCC1i 
104O POKER + X , B .. 1 L *- ' LL L J 

1.058 NENT 

1O60 GOTO1815 


Figura 6.1. Listado. 


“254" e interrumpirse la ejecución 
hasta que se pulse una tecla cual¬ 
quiera. Incidental mente puede ser ne¬ 
ceado ajustar P1 “(o el brillo, o 
ambos) hasta obtener un funciona¬ 
miento fiable. 


Pasada esta prueba se puede pro¬ 
ceder a experimentar con un progra¬ 
ma de aplicación, como es el caso del 
“situador de letras" del programa de 
la figura 6. 


Joaquín Roca Dorda 
Cátedra de Electrónica. 

F.U.P. de Cartagena. 

(Continuará) 
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Microdrive e ¡nterface 

¡PRECIOS INCREIBLES! 
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de discos, nuestro cartucho 
FAST-TURBO-MENU, transfor¬ 
mará su Datasette en un lector de 
programas un 10 % más rápido 
que la unidad de discos. 

En una cinta de C-60 puede tener 
hasta diez programas, con lo que 
también se ahorra, al usar menos 
cintas. 

1. CHOPLIFTER 4. BUSICALC 

2. MONOPOLY 5. 

3. SUPERBASIC 6. 

Sólo tiene que pulsar el n.° del 
programa que quiera leer y el 
Datasette lo localizará y leerá con 
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Lorenzo Miguel Soler nos remite 
desde Madrid este juego, para el 64. 
llamado ANTIAEREO. Consiste en 
derribar los aviones enemigos que 
sobrevuelan el puesto antiaéreo. Para 
ello se dispone de una batería de tres 
cañones situada en la parte inferior de 
la pantalla. Los cañones están nume¬ 
rados con los números 1, 2 y 3 y para 
dispararlos hay que pulsar las teclas 
1, 2 y 3 respectivamente, según el 
cañón que se desee disparar. Los 
aviones sobrevuelan el puesto de iz¬ 
quierda a derecha y a diferentes 
alturas. La puntuación que se obtiene 
al alcanzar un avión es mayor cuanto 
más alto estuviera y también es ma¬ 
yor cuanto más a la izquierda de la 
pantalla se le alcance. El programa 
comienza con una presentación reali¬ 
zada por un avión enemigo y luego 
puede comenzarse el juego pulsando 
la tecla S. Si no se pulsa en enseguida, 
el programa comienza él solo con una 
demostración del juego. Es importan¬ 
te que una vez copiado el juego, y 
antes de escribir RUN, se guarde en 
cassete, ya que si no podría haber 
problemas, pues el juego inhabilita 
las teclas RUN/STOP RESTORE . Só¬ 
lo nos queda decir adelante y buena 


caza. 
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CBM 64 

10 REM M. SOLER * fiNTI REREO # 064 
15 R«25 ; PRINTCHR$(142) 

i 14 ‘ P0KE774 - 255 ■ cpu *‘ : P0KE19e -»’ «*“•»• 255 

40 IFI>1979THEN80 
50 GQTQ70 

60 PRINT"BOUniliim" :GGTO80 
70 PRINT" n¡a a MH"j 

®g ^^ P *^°y ñL ,^ l P , $ _ ) .; P0KE | +54272 - p: p °KE 1,160: OETW*: IFW*- " S" THENCPU-0: GOTO 100 

”■ : a g i S i ra ,< ^ presionrr ■■ prrr e " pezw 

100 FORI«0TO200:NEXT¡FORH»1024TÜ2023:POKEH,32:NEXT 
110 RESTORE 

130 PRI NT " 3" : fl$»" Bmpmmmc g ipgw « T « 7iT»i«i«i«[«nmmn '' 

135 " »»«»»*»»BBK»B>»»|»>B|*Rlk*R»B«|M|" 

140 PRINTR$"SS 1 2 3 ii 

150 PRINTLEFT$(ñ$,21)TRBC9)"Br”*"TñB<19V l,_ ’ , "TfiBC29)" , “ V 
160 PRINT"W»»»*i»PUNTOS: 0"TfiBC23>"MUNICION: 30": D®0: P-0: ri*30 
200 R«INT(RND<0)!»fl4)+2 
210 FORL=0TQ36 


NUMERO 6 



ooooooooooooooooooooo 















































PREMIADO CON 


Viene de la página anterior 
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”:IFDTHENGGTÜ320 


II 


II 



220 PRINTLEFTf < fl$ > fl)LEFT* < B$, L)" 

230 IFCPU=1THEN260 

240 GETX$:IFX*-""ORXÍC"1"0RX$>"3"THENGQTQ400 
260 B*10íHCVRL<X$)) ; D°1 ; M*M-1 ; H«20 

270 IFCPU» 1THENB® U NT < RND < 1 > #3+1)) * 10: GETU*: IFW*« 11 S " THENCPU*0 GOTO 100 
300 PRINT" JM"LEFT$(B$,32)i" " i"»"LEFT* í B$,32); M 

320 H»H-1: IFHORTHENGOTO340 . 

330 IFB>LRNDB<L+4THENGOTO450 
340 F'RINTLEFT$<R$í H>LEFT$CBf j B) ; "■ I" 

345 PRINTLEFTÍ C fl$,H+ 1) LEFT* < B$, B)J" 

350 IFH>2THENGOTO420 

370 D*0:P0KE133.CPU = PRINTLEFTÍCRÍ,H)LEFT$CB$,B);" 

380 IFM»0THENGOTO530 
390 GGTO420 
400 FQRT=0TO29:NEXT 
420 NEXT 

430 PRINTLEFT$(R$.> fl)LEFT$(B$, 37) " 

440 GOTO200 

450 PRINTLEFT$(R$/H+1)LEFT*(B»,B);" " 

460 PRINTLEFT$ <flí,fl)LEFT» <B$,L);"BBOUM" 

470 F0RN=54272T054236:POKEN,0:NEXT:F0KE54296,15 = P0KE54277,254:P0KE54278,204 
475 P0KE54273,17:PQKE54272,37:PQKE54276,123:P0KE54276,128 
480 D=0 

485 FORI=0TO1000 ; NEXT 

430 PRINTLEFT$(R*/R)LEFT*<B*,L);" 

495 B»B~4 

500 P=P+(16~fi}#C4-(<B-6)/10+l)) 

510 PR I NT 11 &¡pbpppppppppppi"; P 

520 IFMO0THENGÜTO200 
530 IFP<*RTHENGOTO570 

540 PRINTLEFT$Cñ$.9); "IPPPPPPPESTñBLECIO NUEVO RECORD" 

550 R=P 
560 GÜTO580 

570 PRINTLEFT$<R$.9); "IPPPPPBPPPPPEL RECORD SIGUE" 

5S0 PRINTLEFT$<R$.11>LEFT*<B*.24-C10+LEN<STR*<R)>/2));"EN ";R; PUNTOS" 

590 PRINTLEFT$Cñ$. 13); "IBBBBBIDESEñ INTENTARLO DE NUEVO ?" 

600 TI$="000000" 

610 GETV$:IFV$="S"THENCPU=0:GOTO100 
620 IFVRL(TI$)=590RV$="N"THEN20 
630 GOTO610 

640 END Y r c ° 

1000 DñTñ. .................................................................... ~) 

1010 DñT ñ................7.i''.7.7.i'’.i' , ..j7.f'...r.f‘...7.7.7.7.7.7...7.7....... / ^ > 

1020 DñTñ.......7.7.7.7.7.7...7.7.7..7.7...7.7.7.7.7.7...7.7....... 

1030 DñTñ.......r.7...r'.7...r , .7.i''.7.7.7.....7.í'.....7.7....... 


1040 DñTñ. 


...... r 


.7...7.7...7.7.7.7.7.7.....7.7.....7.7....... 


1050 DñTñ.......7.7.7.7.r.7..^r.7..i / .7.7.....7.7.....7.7....... 

1060 DñTñ.......7.7 ...7 9 < 9 9 .(97 9 9 .7.r..... 7. r .....r.r....... 

1065 DñTñ. ......7.7...r'.f...7.7...7.7.....7.7.....7.7........... 

1070 DñTñ. .................................................... i: ¡>-99999999999 

1080 DñTñ. ........ .7 9 < 9 7 9 7 9 7 9 7 9 9 9 7 9 < 9 7 9 < 9 < 9 9 9 7 9 < 9 7 9 < 9 7 9 9 9 t 9 7 9 t . ' .7...7.7.7.7|.7 

1090 DRTA7... 

1100 DñTñ. . 7. 7. 7.7. r. 7. . . r. 7. . . . . . r . r .. . r . . . r’. r . . . . . . 7. r'. 7.7. ^. 7. . > 

1110 DñTñ. .i".7...7.7...7.7......7.7...r'...r'.i"......7.7...7r" 
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1120 DATA , t 7 >1>> *7 >7 > * *1*71 < >7 *<>*>< *7 >7 i < >7 * * >7 >7 >< t7 * * »7 >?>»>< >7 * > * > 

1130 DATA, 7,7,7,7,7,7, ,,7,7,7,7,7,, ,7,7,7,7, 7, , ,7, 7,7,7,7, , , 7, 7,, , 7,7,,, 

1140 DñTñ,,7,7,7,7,7,7,,,7,7,,,,,,7,7,7,,,,,7,7,,,,,,r’,r',,,7,7,,, 

1150 Dñl ñ,,7,7,,,7,7,,,7,7,,,,,,7,7,7,<'',,,,i', 7 , , , ,, > 7 > ( , , ,7,7, , , 

1160 DATA, , 7,7, , , 7,7, , , 7,7, 7, r' , r‘ , , , r" , r , , r , 7, , , 7, i’, i*' >7 ><>>><>< )7 *7 }<> < , , , 

1170 DR rñ,,7,7,,,7,7,,,7,7,7,7,7,,,7,7,,r,7,,,7,7,7,7,7,,,7,r’,7,7,7,7,,, 

1180 DRTR .■ , , t , ,,,,,, , , , 

1190 DRTR ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,* * * * * ******** * * * » ************ * * 
2000 DA1R > > * t > * > * t i * > > * * j ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, , , , , , , , , , 


(Si) 
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O 
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o 

o 



J. Peña Benet y X. Rodríguez i 
Sagarra, dos lectores de Commodore 
Magazine de Tarragona, nos envían a 
la limón este juego para el C-64 
titulado CUATRO EN RAYA.. El 
juego recuerda a ciertos juegos de 
plástico que pueden verse en muchos 
sitios y que consisten en un soporte. 


con agujeros, por el que se pueden 
deslizar fichas de dos colores, intro¬ 
duciéndolas por la parte superior. Se 
juega entre dos jugadores y gana el 
que consigue colocar cuatro de sus 
fichas en línea, ya sea horizontal, 
vertical o diagonal. El juego incluye 
todas las instrucciones como parte del 


programa y es muy sencillo de mane¬ 
jar. Además incluye una interesante 
posibilidad para el caso de que se 
vaya perdiendo y no se esté de humor 
para llegar al final de la partida y 
darle la satisfacción de ganar al con¬ 
trario. 
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0 REM JUEGO DEL CUATRO EN RAYA 

1 REM XAVIER RODRIGUEZ SAGRARA V JORN PENA BENET 

2 PÜKE650,128 

3 GQSUB700 

5 PRI NT " : M1 =0 

6 PÜKE53281,14 

7 U=55376:E=1164 
10 FGRH«0TO7 

20 FQRT=0TO39 ; POKEU+T,0:POKEE+T,67:NEXT 
30 U=U+3*40 : E=E+3*40 
40 NEXT 

50 0=55296 : E=1024 
55 L=93 
60 FOR1=01013 
70 FORX-0TO24 

75 IF <X+1>/3-1NT C(X+1> / 3 > =0THENL=91:GOTO80 
78 L=93 

80 POKEE+40*X,L:POKEU+40*X,0:NEXT 
90 0=0+3 : E=E+3 
100 NEXT 

150 V=1065:V1=55337:Q=1 
160 POKEV, 81 : F’OKEVl, 1 
200 GETA$ : IFfi$=""GOTO200 
PriKF 1 '-’, 32 

220 IFñ$= M E n RNDV=1065GOTO200 
230 IFR$="D"RNDV=1101GOTO200 
240 IFñ$="E“THENV=V-3•V1=V1-3 
250 I FR$= 11 D " THENV=V+3: Vl=Vl+3 
255 IFR$="F"THENEND 
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Viene de la página anterior 


25? IF A$="P"GOTO100O 
260 POKEV,ol : POKEV1,2 
265 IFfi$="C"GOTO300 
270 GOTO200 

300 K=V:K1=V1•N=0 ; GOTO500 

302 Q=-Q 

303 IFQ=1THEH2=13 : GOTO305 

304 Z=6 

305 K=K+120:K1=K1+120 
308 11=11+1 

310 IFF'EEK(K) = 1S8THENF'OKE(K-120} .■ 160 : POKEíKl-120) , 2 : GOTO 450 
320 F'OKEK, 160 : F'OKEK 1,2 
325 I FM=7G0T0400 
330 FORS1=1TO50 : NEXT 
335 F'OKEK.' 32 
340 GÜTO305 

400 POKEK+1,160: F'OKEK 1 + 1,2 
405 POKEK-40,160:POKEK1-48,2 
410 F'OKEK-39,160: F'OKEK 1 -33,2 
42© GOT0200 

458 F'OKE C K-119 >, 160: F'OKE (K1 -119 ), 2 
455 F'OKE(K-40-120>, 160 •' F'OKE(K1 -40-120>, 2 
460 F'OKE < K-40-119>, 160: F'OKE C K1 -40-119 >, 2 
465 GOT0200 
500 U2=V+120 

510 IFF'EEKC U2> = 160GOTÜ900 
520 GOTO302 

700 P0KE53281,6 : PRI NT" IT = F'R I NT " 2WMIÜCUATR0 EN PfiVft " 

705 PRI NT : PRINT 

710 F'RINT"¡B INSTRUCCIONES DEL JUEGO:" 

715 F'RINT 

720 PRINT" ESTE JUEGO CONSISTE EN PONER CUATRO " 

730 F’RINT" CUADRADOS EN RAVA , ESTA RAVA 
740 F'RINT" PUEDE SER HORIZONTAL,VERTICAL O" 

750 F'RINT" DIAGONAL." 

752 F'RINT" ESTE JUEGO ES PARA 2 JUGADORES" 

755 F'RINT:F'RINT 

760 PRINT" SWWWMTECLAS DEL JUEGO" 

765 PRINT 

770 PRINT"SI -E > IZQUIERDA" 

780 F'RINT" ~D i DERECHA" 

790 F'RINT" -C ,PARA DEJAR CAER UN CUADRADO" 

800 F'RINT" -F ,FINAL" 

805 PRINT" -F', PARA SI ESTAS A PUNTO DE PERDER V NO QUIERES PERDER" 
850 F'RINT: F'RINT 

860 F'RINT "PARA COMENZAR PULSE UNA TECLA_" 

865 F'R I NT" 3" 

870 GETSí:IFS$=""GOTO870 
880 RETURN 

900 3=54272 : F'OKES+24,15: P0KES+5, 100: PÜKES+1,25: POKES+0,177: F'OKES+4.11 
910 FORF'= 1TO100 ; NEXT 
920 P O K E S+4,0: F' O K E S+5,0: P O K E S+6, G 
950 GÜTÜ200 
1000 FQRNU=1024T02023 
1010 POKENU,32 : NEXT 
1020 END 
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ra, entonces se pasa a una nueva 
pantalla con más basura que la ante¬ 
rior. 

Las teclas con las que se controla al 
pingüino son: 

Q = ARRIBA 


A = ABAJO 
. = IZQUIERDA 
, = DERECHA 

El programa es para el VIC-20 
estándar, es decir sin ningún tipo de 
expansiones de memoria. 


Enric Corberó Serrahina nos envía 
desde Barcelona este estupendo juego 
para el VIC-20, que él ha titulado 
PINGÜINO. El juego consiste en 
hacer de empleado del servicio de 
limpieza y amontonar en un solo 
bloque toda una serie de paquetes de 
basura que aparecen aleatoriamente 
distribuidos por la pantalla. El encar¬ 
gado de amontonar la basura es un 
pingüino, representado por una He¬ 
cha y que el jugador controla median¬ 
te cuatro teclas. Para mover los blo¬ 
ques basta con acercarse hasta ellos 
con lo que saldrán disparados, como 
si les hubiéramos dado una patada 
bien fuerte. Una de las cosas que 
hacen muy entretenido a este juego es 
la velocidad con que hay que mover 
al pingüino, va que sólo se dispone de 
un tiempo limitado para amontonar 
toda la basura de una pantalla. Ade¬ 
más, por cada pantalla se dispone de 
3 vidas y si con alguna de estas 3 vidas 
se consigue amontonar toda la basu- 

VIC 20 
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1 P0KE36879, 25:PRINT" 3" -PQKE650,128 ■ P=0•N=10•PflNT»1:P2=3:TE=35:GOSUB10000 

2 TI $= 11 000000'" : P0KE36878, 15 

5 PR I NT ” B iQ*y~xxxxxxyx>z u Oc&>yy~xxxx ' 1 ; 

6 FORT-1T019 : PRINT u X X”;:NEXTT 

7 PR I NT " XXXXXKOOOJ 

8 F’QKE36876;0 

9 Q*N-1 

20 144 : 0=130 

25 PR I NT" iPRNTRLLñ "PfiNT" TñNCS" F'2 ; "TT' 

30 FQRfi=lTÜN 

35 0=0+3 

36 F’0KE36875,0 

40 J=INT < RND<1> *368 ) +69 

44 IFPEEK ( 7680+J+1> =860RPEEKC7680+J-1>=86THENGOTO40 . 

45 IFPEEKC 7680+J>=86THENGOTO40 
50 POKE7680+J,160 

55 POKE38400+J > 2 

60 NEXTñ 

61 POKE36875.0 

62 FORTUITOS 

63 2=INTCRND(1>#368)+69 

64 IFPEEK < 7680+Z )032THEN63 

65 POKE7680+Z.* 86 
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66 NEXTT 

70 POKE 7680 +X .30 

71 IFQ= 1 THENPANT=PANT+ 1 :R=P+TI:TE=TE+ 5 : N=N+ 5 :PRINT''^" : PÜKE 36876 , 12 S-GÜTÜ 2 

72 IFTI /100>TETHENP2=P2~ 1 • PRINT ,, ^ H • TI$*"000000” : P0KE36876,211: G0T05 

73 POKE 38400 +X .6 

74 P 0 KE 36875 ,L 

75 L=ü 

76 IFP2=0THENIjOT05000 
80 PRI NT " BTEMPS" TE -1 NT < TI/ 100 ) " PIJNTS ” P 
90 GETA$ 

100 IFA$="Q"THEND=D- 22 : L =180 
110 IFA$="ñ"THEND=D+ 22 •L =210 
120 IFñ$=". H THEND=D+ 1 :L *200 

130 IFñ$=% H THEND=D- 1 :L -190 

131 I F A$=" Q " THENIFPEEK< 7680 +X -22 ) = 160 THEND --22 • GOSUB 1000 

132 IFñ$="fl'" THENIFPEEK(7680+X+22> = 160THEND»22•*GOSUB1000 

133 IFA$=","THENIFPEEK< 7680 +X- 1 > = 160 THEND=~ 1 : GOSUB 1000 

134 IFR$="."THENIFPEEK< 7680 +X+ 1 )* 160 THEND= 1 : GOSUB 1000 

135 X*X+D 

136 IFPEEKC 7680 +X>= 86 THENX=X-D*D =0 

137 IFPEEK< 7680 +X)= 160 THENX=X-D•D *0 

138 P 0 KE 36875 .. 0 
140 FOKE 7680 +X--D, 32 
145 H =0 
500 GOTO 70 
1000 Z-X+D : T =170 

1010 POKE 76 S 0 +Z ,160 

1011 P 0 KE 36877 ,T:T=T +4 

1012 POKE 38400 +Z .2 

1015 I FPEEK ( 7680 +Z+D ) = 160 THENPÜKE 7680 +Z, 32 • P=P +10 : Q-Q- 
1020 PÜKE 7680 +Z ,32 

1026 I FPEEK < 7688 +Z+D > = 86 THENPÜKE 7680 +Z-D, 160 • P 0 KE 36877 , 0 : RETURN 
1030 Z=Z+D 
1050 GOTO 1010 
1500 GÜTÜ 70 

5000 PR I NT M SPUNTS " P " MflNQ." Q • P 0 KE 36878,0 

5001 P RIN T ‘' SMpMéS&Jí i i $ i ñ M E OVERk." 

5010 IFP>RETHENRE=P 

5020 PR I NT " MMH»»»»RECORD : " RE 

5023 FORR= 1 TÜ 10 •GETfl$ : NEXT 

5024 IFfl$O u "THEN 1 

5025 GÜTO 5023 

10000 PR I NT 11 fcMíiPUENR IC CORBERO PRODUCTIONS PRESENTS" 

10001 PR I NT” INGUI NO " 

10010 PRINT")fl)IWWWDEBERflS RECOJER TODA LFl BASURA QUE ENCUENTRES, PARA ELLO CONTR 
ALARAS ” 

10020 ^PRINT "fl TU PINGÜINO CON- M 
10030 PRINT"MWMfctQ : ARRIBA” 



1 : PÜKE36877,0 : RETURN 


10031 PRINT"MMMR 

10032 PRINT”Ü»»K 

10033 PRINT"WMM> 


ABAJO” 

IZQUIERDA” 

DERECHA” 


10050 FORT=1TO4000:NEXTT ; RETURN 
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DECO es un programa didáctico 
para el C-64 que nos remite José 
Manuel García Pérez desde Madrid. 
El programa explica de una forma 
clara v amena el funcionamiento de 
un circuito decodificador. Un decodi¬ 
ficador es un circuito electrónico con 
varias líneas de salida, cada una de las 
cuales se activa (cambia de 0 a 1 ó 
viceversa según el tipo de que se trate) 


CBM - 64 


únicamente para cierta combinación 
de ceros y unos en las líneas de 
entrada. El programa DECO explica 
todo esto, pero además, y esto es lo 
más interesante, permite ver como 
evolucionan los diversos elementos 
del circuito decodificador, para cual¬ 
quier combinación de las entradas 
que se puede introducir desde el 
teclado. 


De esta forma se puede seguir el 
proceso, y entenderlo muy fácilmen¬ 
te. desde que se asignan valores a las 
entradas hasta que se activa la salida 
correspondiente. 

Este programa es un bonito ejem¬ 
plo de lo útiles que pueden ser los 
ordenadores en la enseñanza, para 
explicar y “ver" procesos dinámicos 
como puede ser la evolución de nive¬ 
les lógicos en circuitos digitales. 
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10 PRINT ,, n u ; :PRINT ,, ry l ; : PÜKE53280,6 

20 PRI NT : PRINT : F’R I NT : PRI NT • PRI NTTFlB< 10) "EXPLIÜHÜIÜN GRRFI Cfl" 

30 PR I NT : PR I NTTFlB < 18 > " DEL " : PR I NT 

40 PR I NTTFlB < 11>" FUNCI ONñN IENTÜ DE " : PR I NT 

50 PR I NTTFlB < 18 ) " ÜN "• • PR I NT • PR I NTTfiB < 15 )" CIRCUITO" 

60 PRINT:PRINTTFlB<13 >"DECODIFICfiDOR" 

70 FORT-1TÜ7000:NEXTT : PRINT" IT; :GÜSUB9600 
80 PR I NTTFlB < 34)" • PR I NTTFlB < 34 ) " I. ñ" 

90 PRINT" EL CIRCUITO TIENE TRES ENTRADOS 4 B" 

100 PR I NTTFlB < 34 > " I C" • PR INTTAB < 34 >" : PR I NTTFlB < 34)" /' 

110 PRINTTAB<34)" I 1" 


120 PRINTTAB<10)"V CUATRO SOLIDOS- 




"l II 


II 


II 

■-> 


130 PRINTTñBí34)"l 3": PRINTTfiBC34)" I 4" • PRINTTFlB<34)" 
140 PRINT" -Lfi ENTRfiDfi <fi) SIEMPRE Hfi HE ESTAR" 

150 PRINT" EN ESTADO 1 VA QUE EN OTRO CASO" 

160 PRINT" Lfi SALIDA POR 1,2,3 0 4 SERA CERO" 

180 PRINT" -LAS SALIDAS SERAN: " : F'RINTTAB(21) "B C 

190 PRI NTTAB<21 > "- : PRI NTTFlB < 21)" 0 0-1" 

200 PRINTTfiB í21)"0 1-2"=PRINTTAB < 21)" 1 0-3" 

210 PRINTTfiB(21)"1 1-4"¡PRINT 

220 PRINT" (PARA CONTINUAR PULSE UNA LETRA)" 

230 GETfif:IFA$=""THEN230 

233 PR I NT" 31" ;= PRINT "INTRODUZCA LOS VALORES DE B V C" 

235 INF’UT"DE LA FORMA:B,C<SOLO CERO 0 UNQ)";B,C 
240 PRINT "3"; : GOSUB2390 

250 F'OKE 1306,1 = F'OKE 1666,2: POKE1S26,3: F’OKE 1139,49 

260 POKE1339,50:POKE1539,51=POKE1739,52 

270 PRI NT "B= "B, " C= 1 " i C •' F0RV= 1 TO 1000 : NEXTV 

230 B=B+1 : OHBGOSUB5000,7000 

380 PRINT"PARA CONTINUAR PULSE UNA LETRA" 

310 PQKEX,2:FORT®1TQ200=NEXTT:PÜKEX,1 ; F0RT=1TO200:NEXTT 
320 GETB*=IFB$=""THEN310 

340 PRINT"SI QUIERE OTRO EJEMPLO PULSE LA LETRA P" 

350 INF'UT"SI NO PULSE OTRA CUALQUIERA"; N* 

360 F’R I NT " 3": I FN$=" P " THEN233 

370 FORE=1 TOS:PRINT:NEXTE:PRINTTfiB(17)"FIN" 

380 END 

2990 P0KE53281,14 
3000 PRINT 
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etáVe 


3010 

3020 

3030 

3040 

;••! Pipila 

• •• w ■** 

3060 
3070 
3080 
3090 
3 1 00 
3110 
3120 
3130 
3140 
3150 
3160 
3170 


• -! 1 W 


3130 
3200 
3210 
3220 
5000 
5010 
5030 
5040 
5050 
5060 
5070 
5080 
6000 
60 1 0 
6020 
6030 
6040 
6050 
6900 
7000 
7010 
7020 
7030 
7040 
7050 
7055 
7060 
8000 
80 1 0 
8020 
8030 


8035 


8040 

8900 

9000 

9010 

9020 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 
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F0RY= 1T0400 •' NEXTY : P0KE532S 1,6: RETURN 
IFC=0THENX=55409 
IFC=1THEHX-55609 : GÜT06000 
60SUB9@00 
GQSUB9100 
GOSUB9200 

FOR't- 1T010: POKE55404,2: F0RZ= 1TO2O0: NEXTZ 
POKE55404,14 : FORZ=1TO200 ; NEXTZ : NEXTY 

F ORY=55406T055408:POKEV,2:FÜRZ=1TO150 = NEXTZ:NEXTY : GÜTO6900 

ÜÜSUB9000 

GÜSUB9100 

GQSUB9400 

F 0RY-1T 010:POKE55604,2:F0RZ=1TO200:NEXTZ 
POKE55604 > 14 : FORZ=1TO200 : NEXTZ=NEXTY 
F 0 R V=55606T035608:POKEV,2:FORZ=1TO150:NEXTZ:NEXTY 
RETURN 

IFC=0THENX=55809 

IFC-1THENX-56009 : GOTO8000 

G0SUB9008 

GÜSUE9500 

GGSUB9200 

F0RV= 1T010 : POKE55804, 2: F 0RZ-1 10200 : NEXTZ : POKE55304.14: FORZ= 1 Tñ00 
NEXTZ-NEXTY 

F ORY=55806T055808 = POKEV,2:F0RZ=1T0150:NEXTZ:NEXTY:GOTG8900 

GÜSUB9000 

GGSUB9500 

GGSUB9400 

FGRV= 1TQ10 : PGKE56004,2 ; FÜRZ-lTQ20Ü •' NEXTZ : PÜKE56804.. 14 : FÜRZ=1TÜ200 NEXTi 
NEXTV 

FORV=56006TO56008 : POKEV¿2:FORZ«1TG150•NEXTZ•NEXTV 
RETURN 

P0KE55579, 2 : FORZ=1TG200: NEXTZ : PGKE55580, 2 : FriRV=lTÜlF,0: NEXTV 
PÜKE55581,2:F ÜRV=1TG150:NEXTV:P0KE555S2,2:FÜRV=1TÜ150:NEXTV 
PGKE55542, 2 • PÜKE55622,2 : FGRV-1TG148 • NEXTV • PÜKE55502, 2 •' PÜKE55662.2 
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3030 

3040 

3050 

3060 

3070 

3100 

3105 

3110 

3120 

3130 

3140 

3150 

3160 

3130 

32W0 

3210 

3220 

3230 

3240 

3245 

3250 

3260 

3270 

3280 

3230 

3235 

3400 

3410 

3420 

3430 

3450 


PÜKE56037, 2 • FÜRZ=1TG3Q0 ■’ NEXTZ 
PÜKE55317.2^FÜRZ=1TO150:NEXTZ 
PÜKE55837.. 2 : FÜRZ-1 TO 150 : NEXTZ 


3470 


3510 
3520 
3530 
3540 
3545 
3550 
3 5 1 "' 0 
3570 
3580 
3600 
3610 
3620 
363y 
3640 
3650 
3660 
3670 
3680 
3630 
3700 
9710 


F ÜF,'Y= 1T 0148 = NEXTY : PQKE55702,2: P0KE55462,2 = FORV» 1 TOl 48: NEXTY 
P0KE55422 , 2 : P0KE55742 .• 2 : F ORV= 1 TO 148: NEXTY: P0KE55782,2: P0KE55382 , 2 
F ÜRY-1 TO 148: NEXTY : P0KE55383.. 2 : P0KE55783, 2: FORV=l TO 148: NEXTY 
P0KE55384,2 = P0KE55784,2 : FORV=1TO150 ■' NEXTY: PÜKE55785,2 
RETURN 

FORY=1TOlO : POKE55902,2:F0R2=1TO200:NEXTZ:POKE55902,14:FORZ»1TO200 
NEXTZ:NEXTY 

PGKE55904,2 : FORV=1TO13 = PÜKE55904-40*Y,2:FORZ»1TO150:NEXTZ:NEXTY 

FORV*1TO10:P0KE55387,2¡FORZ»1TO200:NEXTZ 

P0KE55387, 14 = FORZ-1TO200:NEXTZ : NEXTY 

FOR'r-55389T055401 ; POKEY, 2: FORZ» 1 TO 150: NEXTZ: NEXTY 

FORV=55435TO55595STEP40:POKEY,2:FORZ*1TO150 : NEXTZ:NEXTY 

FORY=55596TO55601:POKEY,2 = FORZ»1TOl50:NEXTZ:NEXTY 

RETURN 

FORV=1TOl0:PÜKE56062,2=FORZ=1TO200 : NEXTZ 
POKE56062,14 = FORZ»1TO2Ü0 = NEXTZ = NEXTY 
FORY=56064T056077:POKEY,2:F0RZ-1T0150:NEXTZ:NEXTY 

P0KE55957,2:FORZ=1TO150:NEXTZ 
P0KE55877,2 = FORZ»1TO150:NEXTZ 
P0KE55838,2:FÜRZ»1TO150:NEXTZ 
PQKE55757,2 : P0KE55839,2:FORZ=1TO143:NEXTZ:P0KE55717,2 
FORV=1TO150: NEXTY : P0KE55677, 2 •' P0KE55841,2 : FORV» 1 TOl50 : NEXTY 
P0KE55637,2:FORY=1TO150:NEXTY:P0KE55557,2:FORV»1TOl50 ; NEXTY 
P0KE55517,2:F ORV=1TO150:NEXTY:PÜKE55477,2 ; FORV»1TO150:NEXTY 
F0RY-55437T055441:POKEY,2:FORZ»1TO150 : NEXTZ:NEXTY 
RETURN 

POKE56099,2•FORV»1TO150 = NEXTY:PQKE56100,2:FORV*1TO150:NEXTY 

POKE56060,2 : PÜKE56140,2:FORV»1TO150:NEXTY 

FORV»56140T056160 : POKEY,2:FORZ=1TO150:NEXTZ:NEXTY 

F ORV»56120TO56040STEP-4© : POKEY,2 : FORZ»1TO150 : NEXTZ:NEXTY:POKE56041,2 
F0RZ»1TOl50:NEXTZ 

FORY-55960TO55640STEP-40:POKEY,2:FORZ=1TO150:NEXTZ:NEXTY 
P0KE55641,2:RETURN 

P0KE55939,2:FORV»1TO150:NEXTY:POKE55940,2:FORV»1TO150:NEXTY 
POKE55900,2:POKE559S0,2 = FORV»1TO148:NEXTY 
FORV-55981T055984:POKEY,2:FOPZ*1TO150 ; NEXTZ : NEXTY 
F O R V=5 5 985TO55825STEP-40:POKEY,2:FORZ*1TO150 : NEXTZ:NEXTY 
FORY»1TO10 : P0KE55788,2:FOPZ=1TO200 : NEXTZ:P0KE55788,14: 

FORZ»1T0200:NEXTZ:NEXTY 

FORV=55790T055799: POKEY, 2 : FORZ» 1 TOl50 : NEXTZ •' NEXTY : FORY=1TO300: NEXTY 
POKE55801,2 : FQRV=55835TO55995STEP40:POKEY,2:FORZ*1TOl50 : NEXTZ:NEXTY 
F ORY-55996TO56001 : POKEY,2:FORZ»1TOl50 : NEXTZ:NEXTY 
RETURN 

F'R I NTTflEí 5 > " UN CIRCUI TO DECOBIFI CfiDOR USñ " 

F‘RINTTA£<5>"DOS TIPOS DE PUERTAS LOGICAS" 

F'RI NT : F'R I NT : PRINTTAE<3 > " -PUERTA Y <* ) = " 

F'RINTTflE<5> "EN LH QUE SOLO HAY SALIDA SI TODAS" 

F'RINTTflE(5) "LAS ENTRADAS ESTAN EN NIVEL 1" 

PRINT:PRINTTAE C3>"-1HVERSGR (-)=" 

PRINTTAE(ti>"EL INVERSOR O COMPLEMENTO ES UN" 

PRIHTTAB(5>"CIRCUITO CUYA SALIDA ES LA INVERSA" 

F'R I NTTAE ( 5 > "DE SU ENTRADA." 

FORV» 1T09 : F’R I NT : NEXTY : PR I NT " < PARA CONTINUAR PULSAR UNA LETRA;'" 

GETAÍ:IFA$=""THEN97O0 
A$= " " : F'R I NT " 73" , : RETURN 
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Ignacio Parellada y Ricardo Porta- 
belda nos envían desde Barcelona el 
programa en busca del tesoro, para el 
V/c 20 en su versión estándar. El 
juego consiste en desplazarse a través 
de un laberinto aleatorio hasta llegar 
a donde se encuentra el tesoro, repre¬ 
sentado por el símbolo $, y hacerse 
con él. Hay, sin embargo, dos obs- 
táculosd que salvar antes de poder 
llegar al tesoro; el primero de ellos es 
el tiempo, ya que sólo hay un minuto 
para conseguir el dinero en cada 
pantalla. Pero además, puede ocurrir 
que el tesoro esté al otro lado de una 
pared, en cuyo caso hay que hacer 
uso de un pico para romper dicha 
pared, teniendo en cuenta que sólo 
puede hacerse un agujero por cada 
laberinto. Cada vez que se consigue el 
tesoro aparecerá una nueva pantalla, 
con un nuevo tesoro que recoger, 
pero también con mayor número de 
obstáculos que superar. El programa 
incluye instrucciones sobre las teclas 
que hay que utilizar para moverse por 
el laberinto. 
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1 PÜKE650,255:GQSUB10000 

2 PRI NT 1 2 3 * * * * * * * 11 sr : P0KE36873,12*11=0- 00=0 : GÜSUB7000 

6 PRINT"n=r ; :V=1•X-0:F=0 ; D=0:00=00+.1 

7 N~0:X= RND<1>#10 = Z=8174:ñfl=0 

8 IFXOO0THEH10 

3 IFX>OOTHEN20 

10 PRINTCHRS<166>;:F=F+1:G0T035 
20 PRINTCHRf <160); 

30 D-D+l : G0T035 
35 IFD+F-C487THEN7 
33 FÜRTT=1T04 

40 V=INT(RND(1>*466 > +1:N=7680 

60 IFPEEK<N+V+U> = 102ORPEEK(N+V+IJ> =30ORPEEK< V+U+N> =36THENU=U+1 : GOTO40 
65 PÜKE7680+V+U,36 
70 NEXT 

80 P0KE8174, 81 

85 P0KE8152,32:PÜKE8130,32 

87 Z=8174 

88 TI$="000000" 

83 POKEZ+6,30 

30 GETR$*IFR$=""THEN30 
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3 1 IFVñL<TI$> >100THEMGOTÜ6000 
•35 POKEZ+RR, 32 

100 IFA$="I"THENRñ=ññ-22:GOTO135 
110 I FR$= " M " THENAA=AA+22 • GOTO 135 
120 I FAÍ= " L " THENAR=RR+1 : W. I V13.5 
130 IFñ$="J"THENAR=RA~1 : GGTO135 

135 IFPEEK(2+RA> = 102RNDV»1THENG03ÜB1000 

136 IFPEEK(Z+RR> = 102RNDV=0THENV=1 : PÜKLZ+6,30 

137 IFPEEK <Z+RR > =30THEHGÜSUB2000 

138 i FPEEK(Z+RR > =36THENGOSUB3000 
133 IFZ+RR>8186THENRfl*RR-22:GOSUB500 
145 IFZ+RR<7680THENRR=Rfi+22:GÜSUB500 
190 PÜKEZ+RA,81 
200 GGT090 
500 P0KE36878,15 
510 FÜRX=1TÜ25 
520 PQKE36876,200 
530 NEXT 

540 P0KE36876,0•RETURN 

1000 P0KE36878,15 

1010 FORX*1TO200 

1020 PGKE36876 , 200 

1030 NEXT 

1035 PÜKE36876,0 

1040 PÜKEZ+RR,102 : RR=0 : RETURN 

2000 PÜKE36878,15 

2010 FGRL=1TO10 

2015 FORM-250TO240STEP-1 

2020 P0KE36876/M 

2030 NEXTM 

2040 FORM«240TO250 

2050 PÜKE36876, M 

2060 NEXTM 

2070 PÜKE36876,0 

2080 NEXTL 

2090 PQKE3687S,0 s 

2100 V=0*RETURN 

3000 W=W+1 : SC^SC+5#(II + l)*W+(100-VAL<TI $>>*TT 

3010 IFW=4THENPÜKEZ+ññj 81:PRIHT"^JWW«"SC" PUNTOS":FORBB=1TO4000 : NEXT : GOSUB8000 : D 
-0 ’■ G0T06 

3026 P0KE36878/15 
3030 FQRI=128TÜ255 
3040 P0KE36875 .• I 
3050 F0RK=1T03 '■ NEXT 
3060 NEXT 
3070 PÜKE368750 




080 RETURN . 

6000 pr i nt M termino el tiempo" 

6005 FGRVY-1TO500 : NEXT 

6010 R1=36875•R2-36878•P0KER2,15 

6020 RERDPfl : IFPfi=-lTHEN6100 

6030 REñDDF•POKER1,PR•FGRNM=1TÜBF:NEXT 

6040 POKER1,0:FORMN»1TO20 : NEXT : GGT06020 

6100 P0KER2 } 0 

6200 DRTR232,400,225,150,225,150,228,250,225,750,231,300,232,300,-1 
6500 PRINT" WttiMir'SC" PUNTOS" : FÜREE=1TO5000 : NEXT 
6620 SC=0: RESTORE • PRINT" al"; GGT02 

7008 PRINT"ZWSPRRR TERMINRR /%/ " : PRINT:INPUT"NIVEL C1-3>",TT 
7005 IFTT=0THENPRINT"r3" : END 
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Viene de la página anterior 
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7010 IFTT>3QRTT<0THEN7000 
7020 ÜO-TT+2. 5 
7025 GÜSUE8000 
7830 RETURN 

8000 II = 11 +1 : RRI NT " ^immmfrnnikLñBER INTÜ " 11 : FORRR= 1T05000: NEXT 
8010 PRINT" sr :RETURN 
10000 P0KE3687SC46 
10010 PRINT":]:*" 

10020 PRINT "«MUSEN BUSCA DEL TESORO ' i" 

10030 PRINT"WWMOVIMIENTO:/I /J/L/M/ " 

10040 PR I NT " m IEMPO :■1MI ÑUTO " 

10050 PRINT" MOBJETIVO•RECOGER ($> 

10060 PRINT " .«DISPONES DE UN PICO 
10070 PRINT“JSPflRA ABRIR UNA BRECHA. 

10080 PRINT"A MAVOR CANTIDAD DE 
10030 PRINT"«LABERINTOS MAVOR ES 
10100 PRINT"«LA DIFICULTAD. 

10105 PRINT"« PULSA /Fl/ 

10110 GETS* : IFS$OCHR$ < 133 > THEN10110 
10120 RETURN 
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COMPUTERS, S.A. 


EXPOSICIONES: 


C/ Alfonso el Batallador, 16, trasera. PAMPLONA. 


PAMPLONA: C/ Alfonso el Batallador, 16 (trasera) - Tel. 27 41 54 (provisional) 
SAN SEBASTIAN: Plaza de Bilbao, 1 - Tel. 42 62 37. 


Commodore 64 



>‘ A «- 



(^COMMODORE 64 2.995 pesetas/nnes.^) 

SOLICITE INFORMACION 

C VIC - 20 1.310 pesetas/mes") 

BOLETIN DE PEDIDO 

r —--- 

— Unidad de discos - 1541 (170K) 75.000 ptas. 

— Impresora Seikosha GP - 100 VC 49.500 ptas. 

— Unidad de cassette 10.500 ptas. 

— Adaptador de VIC - 20 ó C-64 a cualquier casse¬ 
tte 2.950 ptas. 

— Joystick Crackshot 2.500 ptas. 

— Ampliación de memoria externa de 16 K para 

VIC-20 12.300 ptas. 

— Más de 2.000 juegos distintos, utilidades, libros 
nacionales y extranjeros 

Nombre y apellidos 

Dirección y teléfono 

Deseo recibir más información 

Deseo adquirir . 

Precio total . 

Giro Postal 

Talón adjunto 

Talón conformado adjunto 

Tarjeta VISA o Master Card número 

Fecha caducidad 

FIRMA 
































































Commodore Magazine de (¡ranada, 

nos manda esta pequeña pero intere¬ 
sante rutina para confeccionar histo- 
gramas con el ( BM 64. Los histo- 
gramas o diaaramas de barras consis- 
ten en la representación de un conjun¬ 
to de valores mediante un gráfico de 


barras de diferentes alturas. Cada 
barra representa un valor diferente, y 
su altura es mayor cuanto mayor sea 
el valor que representa. 

La rutina comprende el conjunto 
de instrucciones entre la 6 y la 160. 
ambas inclusive, y está pensada para 
ser utilizada como subrutina dentro 


de un programa más complejo. El 
grupo de instrucciones entre la 1000 y 
ía 1600 constituyen un ejemplo para 
ilustrar el funcionamiento de la ruti¬ 
na. representando el histograma de 
un conjunto aleatorio de valores, 
tantos como se desee hasta un máxi¬ 
mo de 38. Para utilizar la rutina 
dentro de otro programa hay que 
tener en cuenta que, antes de llamarla 
con un GOSU. es necesario definir el 
número de datos a representar y 
asignarlo a la variable N y también es 
necesario que los datos vayan alma¬ 
cenados en una matriz A(l)de dimen¬ 
sión N. El programa aprovecha, para 
la dimensión vertida, de las barras la 
máxima resolución gráfica del 64. 


HISTÜGRflMflS 
fiUTOR F. GUINDOS 


8 REM 

1 REM 

2 REM 

3 REM 

5 GOTO1800 

6 DRTfi 164, 175 .< 185.162.. 184.. 183.. 163 

10 PÜKE532S0.0 : ñM~ I NT < 38/N > fi$=" " • FÜRF= 1TÜ7 • REflDG • ñf-ñí+CHRt- 
20 M=0:FÜRF=1TON•IFMCR <F >THEHM=R<F > 

:-;Pi HF' :í 'T 

40 F0RF=1TON:ñ(F >=fi<F>*186/M:NEXT 
50 PRINT'7] 

60 P=INT<<41-N# AM)/2>+1 
70 FORF--1T0H : F0RG=1T0hM 
80 X=P+<F-1)#flM+G-1:V=23:IFX=0THENX=256 
90 P0KE211 ■ X-l : P0KE214.. V : SVS58732 
100 IFFKFK8THEN120 

110 F0RH=1TOINT<ñ<F)/8 >:PRINTCHRf <13 >;" ";CHR* <145 >;CHR*<157 
120 IF<INT<fl < F>>HND7 >>4THENPRINTCHRí<18); 

130 IF<INT(fl <F> > AND7> =@THEN150 
140 PR INTMI TJ$ •: fl$, í fl C F > AND7 > . i > 

150 NEXT = NEXT 
160 RETI.JRH 

1900 PRINTCHR$< 147 >TflE <93> " HISTOCRPlMflS " : PR I NT: PR I NT 
1100 INPUT"NUMERO DE DATOS <MAX=38>";N 
1200 IFNOI NT < ABS < N > > 0RN>38THEN 1000 
1300 DIMR< N> 

1400 F0RF=1TON : FK F>=<.5+RNB<1)>*F#CN-F+1>:NEXTF 
150@ GOSUB10 

1600 GETRÍ : T Ffl:f~ " " THEN16@0 


PREMIADO CON 

^-s 



G> : NEXT 
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Francesc Pinvol, al parecer muy 
aficionado a la mecánica celeste, con¬ 
cursa con este programa llamado 
Satélites Artificiales. Según nos acla¬ 
ra, el programa consta de dos partes. 
En la primera se introducen los datos 
que determinan la trayectoria del 
satélite, calculándose la excentricidad 
de la órbita. Después podemos indi¬ 
car si deseamos ver representada la 
órbita seguida. Contestando afirma¬ 
tivamente se pasa a la segunda parte 
del programa. 

Para representar la trayectoria hay 


que contestar cinco preguntas que 
aparecen en la pantalla. En primer 
lugar hay que borrar la órbita ante¬ 
rior, si es la primera vez que se quiere 
ver desde que se ha cargado el pro¬ 
grama. En las siguientes no es nece¬ 
sario, pudiéndose comparar las dife¬ 
rentes órbitas anteriores. 

Ea escala se elige entre dos opcio¬ 
nes. En la primera cada pixel repre¬ 
senta 530 kilómetros y en la segunda 
es la mitad. La última pregunta que 
hace el ordenador es curiosa. Pode¬ 


mos ver las estrellas como parte del 
fondo. 

Lo cierto es que cuando se corre 
por vez primera el programa, el 
despiste en cuanto a las magnitudes 
factibles es total. El autor lo acompa¬ 
ña con varios ejemplos para que no 
surja la frustración incial. Veamos 
alguno: Altura en Km.: 10; Vel. inic. 
en m/s.: 11.000: g del planeta: 9.8; 
radio: 6.370. Segundo ejemplo: Altu¬ 
ra en Km.: 15.000; vel. inic. en m/s.: 
5.000; g del planeta: 9.8; radio del 
planeta: 6.370, etc. 


O 
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2 ü i J S U B7000 ; G10 S U B 2 5 0 0 
5 BH-2*4096 • PÜKE53272, F’EEK < 53272 > ÜR8 
1G P0KE53265 .• PEEK < 53265 > ÜE32 
t 3 IFKU$= "SI“THENSVS49178 
30 SVS49152 

33 IFESt-"3I"THEHG0SUB8191 

34 PÜKE53280 ,12 : QQ=0 • GGSUB8000 

35 IFPU»2THEN6004 

50 F0RX=320 7 Ü08TEP-2 • V2=WÜ*< ( 1 -ñ* ( X-209 > > 1*2 > - < X-200 > 12 : I FV2<0THENNEXT 

\ y\ j—v 

66 IFSE=1THENW=-1:GOTO148 
6? IFSE=2THEHW=i 
148 Sfl=0:M-~1:FO-XU■GOTO150 
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149 SR=X¡J : M=1 : FÜ=XO+ í 

150 FORX-FQTOSASTEPM*T : V2=W0*<C1 -A* C X-200 ) > T2 ) - (X-200 ) 12 : IFV2C0THEN197 
190 V~<SQR(Y2> *M) +108 : IPV>200ORV<0THENNEXT•GOTÜi93 

192 G-BA+1NT<V/8> *328+8*INTCX/8> + (YAND7>•Z=PEEK<G>OR<2TC7-XAND7>> : POKEG,Z : NEXT 

193 IFM=-1THENV=280-V•GOTOí 97 

195 F’ÜKE 1024.. 3 : GÜSUB18008 

196 GOTO196 

197 W=-N•XÜ=X•GOTO149 

2500 PRI NT " ZWlBMíllBÍMÍÍÍMI73SATEL I TES RR'f IFICI RLESül” 

2501 PRINT " . PINVÜL" : PR I NT" ÜÍÍ»ÍÍ»ÍÍÍÍÍÜÍFÜFTWflRE " 

2562 QÜ-1 • GOSUB8000 • POKEV+2.. 250 

2503 PR I NT" UNR TECLR PRRR CONTINUAR*****!!" 

2504 3=54272 : FORL-STÜS+24 : PÜKEL0 : NEXT : POKES+5.- 15 : PÜKES+1 .■ 6 : PÜKES.- 16 : POKES+4.• 129 
2506 FORL-255TÜ0STEP-1 • POKEV+3 .■ L : POKES+24, < L/17 > : GETX.$ : I FX$0"" THEN2513 

2512 NEXT•POKES+4,8•GOT02584 

2513 POKES+4,8 : POKEV+2,0 : POKEV+3.« 0 

3080 PRINT"TWINTROBUCE LOS DATOS SIGUIENTES : " 

3001 INPUT"MW# LA ALTURA EN KM" ¡ H ; H=H/530 

3002 INPUT"# V8 TANGENCIAL EN M/SEG";V0 : V0-V0/530008 
3803 INPUT"# G DEL PLANETA CTIERRA-9.8 )";G•IFG=8THENG~9.8 

3004 INPUT"# RADIO PLANETA EN KM CT=6370>";RA : IFRR~0THENRA=6370 

4800 G=G/530000 : RA-RR/530 

4005 R0=H+RA 

4010 M U=G * ( < R Fl > T2 > 

4815 K==R0*V0 

4016 W0= <CK 12)/MU> T2 

4020 A= < R0* «;V0 T2 > -MU ) / C CRO T2 > * i V0 T2 > > 

4825 E= < CR8* <V8 ?2 ) > -MU > /MU 

4826 FRINT"«MLA EXCENTRICIDAD CE) ES";E 

4827 FORF-0TO608•NEXT 

4828 IFE>10RE=1T'HENPRINT"M!»#EL SATELITE SE PIERDE EN EL ESPAC 10**3" 

4829 IFE<0THENPRINT"Wi»*EL SATELITE CAE SOBRE EL PLANETA**!!" 

4830 IFE<lANDE>0THENPRINT n Mr»*EL SATELITE ENTRA EN ORBITA ELIPTICA**:!" 

4031 IFE=0THENPRINT"Mh»*EL SATELITE ENTRA EN ORBITA CIRCULAR**:!’ 

4832 IFE-1 THENF’RINT"SíñfrEL SATELITE ENTRA EN ORBITA PARABOLICA*:!’ 

4034 PRINT"SEI ECO NO HAV TRAVECTORIA.C CAE )" 

4035 PRINT"SI E~0 LA TRAYECTORIA ES CIRCULAR" 

4836 PRINT"SI 6<E<: 1 LA TRAYECTORIA ES ELIPTICA" 

4037 F'RINT"SI E-l LA TRAYECTORIA ES PARABOLICA" 

4838 PR1NT"SI E>1 LA TRAYECTORIA ES HIPERBOLICA" 

4039 IFE>8THENGOT04847 

4848 IFEC0THENPRINT"«*LA TRAYECTORIA NO SE PUEDE REPRESENTAR*" 

4841 PRINT"QUIERES HACER OTRO LANZAMIENTO ?" 

4842 GETX$ : IFX$="S"THENRESTORE•’GOTQ3080 

4043 IFX$="N' 1 THENEND 
4844 GOT04042 

4047 PRI NT "mil ERES VER LA TRAYECTORIA DEL SATELITE?" 

4848 GETG$ 

4849 IFG$="S"THEN5008 
4858 IFG$-"N"THEN4041 
4051 G0T04848 

5008 PRINT"nWDRTOS PARA LA REPRESENTACION GRAFICA : " 

5001 INPUT'"WMWQUIERES BORRAR LAS ANTERIORES ORBIT";KU$ 

5815 INPUT"«DENSIDAD DE PUNTOS CDE 1.5 A 5)";T 

5818 PRINT"SESGALA: 1 <1FT/EL-530KM)" : INPUT" * 2•C1PIXEL=265KM>";PU 

5028 INPUT"«SENTIDO DE LA TRAYECTORIA <1 O 2)";SE 
5021 INPUT"«QUIERES ESTRELLAS DE FONDO" ES$ : RETURN 
6004 H=H*2:V0=V0*2:G=G*2 : RA-RA*2 
6085 F‘0=H+RA 
6010 MU=G*C CRA)12) 
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6015 K=R0*V0 

6016 W0= <: K T2 ) /MU ) T2 
6020 fi= < R m<. V012)-NU)/<<R012)#íV012>> 

6025 GOTO50 

7000 A=49152 • FORN=0TO25 = READDX •' POKEA+H, IV. ■ HEXT 

7001 A=49178 = FORH=0TO25: READDX: POKEA+N, lí'A ■ HEXT : RETURH 
7050 DATA169,16,162,0,134,150,162,4,134,151,160,0,145,150 
7055 DATA200,208,251,230,151,166,151,224,8,208,243,96 
7060 DATA169,0,162,0,134,150,162,32,134,151,160,0,145,150 
7065 DATA200,208,251,230,151,166,151,224,64,208,243,96 

8000 V=53248 = PQKEV+21,6 : POKE2041,14:IFQQ=0THEH8005 

8001 FORH=0T062 = READ0:P0KE896+H,Q:HEXT 
8005 POKEV+40,1:IFQQ=1THEN9040 
8010 PQKEV+16,2-' POKEV+2,40: POKEV+3,60 

8020 DATA0,56,0,0,68,0,0,84,0,0,68,0,0,68,0,0,68,0 

8025 DATA0,198,0,0,198,0,0,198,0,0,198,0 

8030 DATA1,199,0,1,69,0,2,68,128,12,68,96,16,84,16 

8035 DATA96,124,12,128,146,2,153,17,50,129,17,2,255,57,254,1,215,0 

8040 IFQQ=1THENRETURN 

8041 GOT09000 

8191 FORX=0T0320: V=RND( 1 > *200 = CH= I NT (. X/8) : R0= I NT< V/8) : LN- VAND7 

8192 BV»Bfi+RO*320+8*CH+LN : BI=7-CXAND7):POKEBV,PEEK<BV > OR<2TBI>:HEXT 

8193 RETURH 

9000 V=53248 ; POKEV+21,6=POKE2042,15 

9001 FORN=0TO62:READQ:POKE960+H,Q:HEXT 

9006 IFPU=1THEHPOKEV+4,214:POKEV+5,140 

9007 IFPU=2THENF'OKEV+4,200: POKEV+5,130: POKEV+23,4 : F'QKEV+29,4 
9010 POKEV+41,1:POKEV+28,4:POKEV+37,14:POKEV+38,6 

9020 BATA0,100,0,2,86,0,9,114,128,6,101,64,25,í19,144,46,150,112,119,101,76 
9025 DATA89,123,232,150,14,180,188 ,186,120,86,86,220,231,213,252,180,126,60 
9030 DAT A127,29,248,238,251,212,51,127,240,62,126,224,7,185,192,1,213,64,,121 
9840 DATA,,,, 

9050 RETURH 

10800 8=54272 : POKES+5,65 : POKES+1,43 ; POKES, 52 : POKES+24, 15 ; POKES+4,17-' POKES+6, 120 

12503 POKES+3,12 : POKES+2, 129 •' FORG=0TO5: HEXT : FORT=0TO98 : HEXT 

12504 PÜKES+1,36 ; POKES,85 : FORG=0T080 : HEXT:POKES+4,0:RETURH 
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La revista imprescindible para todo el usuario de 

Ordenadores COMMODORE 



comrnodoi 


ANO I - Núm 5 • Julio 1984 2S0 Ptan. 


REVISTA INOEPENOIENTE PARA USUARIOS 



versión 4.75 


Aproveche ahora esta irrepetible oportunidad para 
suscribirse a COMMODORE MAGAZINE. Envié 
HOY MISMO la tarjeta adjunta, que no necesita sobre 
ni franqueo. Deposítela en el buzón más cercano. 
Inmediatamente recibirá su primer ejemplar 
de COMMODORE MAGAZINE y así durante un año 
(12 ejemplares). 



Bravo Murillo, 377. 
Tel. 733 96 62 
Madrid - 28020 




























INTRODUCE LOS ORTOS STG! i CENIES 


LH RLTURh EN KM'-- k 
Ve TñNGENC I ñl. EN M/SEO? 1000Ñ 
G DEL PLRNETh <TIFRRP=9. ft)? 9„H 
RRDIÜ PLRNFTR EN KM <T~6370}? 6370 


Lñ EXCENTRICIDRD <E> ES -652191673 
m£L SRTELITE ENTEH EN ORBITA EC.IRTICH 


SI E<0 NO HRV TRhVECTORIR,( CHE ) 

31 E=0 LR TRRVECTOR IR ES CIRCUI. RR 

SI 0<E< 1 LR TRRVECTORTR ES EUPT-ICR 
SI E=1 LR TRRVECTORIR ES PRERBOLICR 

SI E> I LR TRR VECTOR í R ES I-I T PERBOLI CR 

QUIERES VER LR TRRVECTORIR DEL SRTELITE? 


D R T O 3 P R R H L H R E P R E S E N' r R CIO N G R R F T O R : 


QIJIE R E 9 B O R R H R I.. R S Fl I-' T E RIO P E 3 i J R B T T ? SI 


PUNTOS <DE 1-5 h 5:<? 


E S C H i... R : 1 <i p l x F L -530k M > 

2 •: 1PIXEL =265KM ? 1 

SENTIDO DE LR TRRVECTORTR < 1 n 2:•v i 

Q IJ IE R E S E S T R E1.1.. H S i ) E F O N ij Q • S « 



SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 


Telf. (91) 733 7969 

7 días por semana, 84 horas a su servicio 


SUSCRIBASE A 


commodore 

__ MajZCLZJJljQ. L 






















CONCURSO DE APLICACIONES BAJO 

EL CALC RESULT 


l r 


r-L! u. a 


LSTEa de 


evaInación 


esta. 


? nuestro jurado opto por premiar 
¡ ¡ e s a n t e a p J. i c a <::• i o n o r i e n t a d a a .1 t e m a d e p a r t i v a „ A s i p u e s e 
premio se va a tajón, lugar donde reside el autor., De todas manera-; 
atos que nos envió olvido adjuntar su nombre al resto de los 

. Esperamos a que los haga llegar a la mayor brevedad-posible 
a c c e d e r a 1 s u s t a n c i o s a p r e m i o 


51 


.LOS 


d 


en 


cabos 


jd L-a 


1D-X- 
17-X- 
24-X- 


•64 

■34 

■84 


5-V-84 


TOTAL 

% 


¡“li idea se encamina al tema deportivo. Si, aunque parezca mentira o 
mas bien raro, creo que puede tener una aplicación interesante. 

Todo entrenador de un equipo, con un mínimo de nivel competitivo, 
ha de realizar unas costosas y monótonas tereas de calculo de 
porcentajes y estadísticas. Cada jugador va generando unos datos 
mediante sus actuaciones durante la temporada. De esta manera se ve al 
final si el jugador fue rentable o no para el club. 

tu mi caso lo he orientado hacia ei baloncesto, deporte que conozco 
un poco y me defiendo en el. 

El entrenador de baloncesto ha de conocer todas las cualidades de 
sus jugadores, para poder adaptarlos a situaciones o partidos 
determinados. 

Igualmente ha de conocer el porcentaje de tiros, tanto de fuera , 
de cerca como de libres. También de rebates, ofensivos o defensivos, 
los balones perdidos o los recuperados, los tapones, etc. 

Al final el entrenador puede hacer un juicio global de lo que ha 
dado de si determinado jugador durante la temporada. 

El método utilizado para efectuar tpdo esto es un poco mas difícil 
de explicar, pero esta dentro de las posibilidades del Cale Result. La 
ayuda del manual sera relevante para quien no conozcan su manejo. 

Antes de nada, hay que adjudicarle una tabla a cada jugador, 
mediante sus datos particulares: Nombre, Apellidos, Edad, Estatura y 
Puesto ocupadp en el equipo. 

Inmediatamente, debajo se incluyen las etiquetas de los datos 
necesarios a considerar: Tiros, Rebotes, Asistencias...., que se irán 
llenando después de cada partido. Una vez terminada la temporada, se 

efectuarían la suma y el calculo de los porcentajes, siguiendo los 
métodos previstos en el Cale Result para efectuarlos. 

Posteriormente podrían incluirse las estadísticas cada uno de 
los datos para poder analizar la regularidad del jugador en cada 
f aceta. 

Con los datos obtenidos de cada jugador se puede valorar el 
conjunto y elaborar una estadística del conjunto, evaluando el 
potencial del mismo'. * 

Las posibilidades no quedanb limitadas a los partidos, también se 
puede aplicar el Cale Result a la preparación física de los jugadores, 
calculando los progresos que van realizando, calculándose el limite 
final, el del conjunto y el poderío fisco del conjunto. 

La cuestión pecuniaria también tiene cabida, aunque este na sea un 
tema puramente deportivo. Se puede llevar la cuenta de lo que gana 
cada jugador, las primas, etc. 

La intención perseguida per esta aplicación es ahorrarle cantidad 
de papeleo al entrenador. 


En la figura 

adjunta s 

e visualiza un 

ejemplo de esta 

apiicacicn 

al 


seguimiento de 

un jugador 

durante la temporada. 




Rebote ofensivo 

Defensi 

vo Totales 

Tiros fuer 

a Libres 

Cerca 

Palmeos 

0 

1 

i 

15-20 

3-4 

5-7 

1-2 

0 

0 

0 

17-18 

0-0 

jL jL 

0-0 

0-0 

0 

o 

K 

**) 

10-15 

5-7 

0-2 

0-1 

1 

1 

s 


s s c 

8 t 1 

a a a 

s 

t 

9 


a a i 

■ 1 1 

a a ■ 

1 

3 

4 

15-16 

6-6 

3-4 

1-1 

10 

28 

38 

120-215 

81-102 

30-60 

7-15 

— 

— 

— 

39 

8D 

30 

46 


lajg¿¿zln£- 
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Angel Jiménez Romero, de Córdo¬ 
ba, nos remite este programa des¬ 
arrollado en un Commodore 64. Aun¬ 
que la idea en que se basa no es 
excesivamente original, sí lo es en el 
diseño. Su fin es dar a conocer el día 
de la semana en que cae una fecha 
que nosotros determinamos, de cual¬ 
quier mes y año. También muestra la 


diferencia, en días entre dos fechas 
introducidas. Igualmente puede im¬ 
primir en la pantalla el calendario de 
un determinado mes. La única limi¬ 
tación que impone es que el año no 
sea anterior al cero de nuestra era, 
aunque si lo quisiéramos hacer, la 
dificultad desaparece al introducir el 
año con signo negativo. 


Entre otras de sus características 
hayamos que tiene en cuenta los años 
bisiestos. Asimismo tiene en cuenta si 
el año ha de seguir el cómputo 
Juliano (fechas anteriores al 5-11- 
1582) o Gregoriano (las posteriores). 

Están observadas en el programa 
protecciones contra fallos en la intro¬ 
ducción de datos, por ejemplo si el 
mes lleva una cifra superior a 12. 


o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


54 


5 REM. 

k : 


CALENDARIO..** 


i 0 PRI NT" 23" : DIML <13 > : B$= ” 

Ib PUKEboiio0, 6 • PORE53¿181 , 6 

20 P= 12 ; GÜSUB2000 

25 PR I NTTfiB C 15 > " {«CALENDAR10 !! 

30 PR I NTTfiB ( 15> ” 

40 FORI -1T07 •• READBS < I > • NEXT 

45 fifiTfiLUNES, MARTES, MIERCOLES, JUEVES, VIERNES, SABADO, DOMINGO 
50 FÜRI -1TO13 •• REfiDL < I > • NEXT 

55 DATÑO,31,53, 32 ,120,151,131,212,243,273,304,334,365 
7 0 P = 16 : G 0 SIJ B2000 

75 PRINT"UESTE PROGRAMO OFRECE : "•PRINT 

80 PRINT”EL Iilfi BE LFl SEMfiNfi DE CUfiLQUIER FECHfi" : PRINT 

85 PRINT"EL CfiLENBflRIO DE CUALQUIER MES ELEGIDO” : PRINT 

90 PRINT”LOS DIRS DE DIFERENCIA ENTRE LAS DOS ULTIMAS FECHAS INTRODUCIDAS” 
92 PRINT : PRINT 

95 PRINT”¿¡ELIGE LA OPCION QUE DESEES V LUEGO PON" : PRINT 
36 PRINT"LAS FECHAS USANDO CIFRAS SEPARADAS POR”:PRINT 

97 PRINT"COMAS (EJEMPLO: 3,11,1970>, V <RETURN>" ; PRINT:PRINT:PRINT 

98 PRINT,"SPULSA UNA TECLA PARA EMPEZAR!” 

100 REM.DIA SEMANAL Y SI ES BISIESTO 

105 DEP FNJ < N)=N~7#INT C N/7 > +1 

110 DEF- FNB(A> = '•fí/100-1NT(H‘ 100> ~(. A/4=1 NT(M/) >-(Fi/400=1 NT(H/400 ) ) 

119 : 

120 REM.EMPEZAR 

121 : 

130 ÜETX$:IFX$="”THEN130 
140 PRINT”23” 

147 

148 REM_....ELEGIR OPCION 

143 : 

150 P=21 : GOSUB2000 
160 PRINT” 2ELIGE: C=CALENDAR10” 

180 PRINT” D=DIA SEMANAL”;:POKE204, 2 
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1 OR 

190 


138 

139 
200 
201 
205 
207 
21 tí 
215 
220 
230 
240 
2 4 3 
245 
2 4 y 
250 
233 

300 

301 

302 

304 

305 

307 

308 
y 1 2 

313 

314 

315 
33Ü 
340 
380 
330 


GET X$•IFX$=""THENGOTG185 

PE I NT “ " ; • PÜKE204,1:1 FX$~" C 11 THENGÜSUB300 

IFX$="D"THENGÜSUB200 

GOTO150 


_CñLCULG DIfi SEMfiNfiL 


PE I NT" 

FUEi~1TO60 : PEINTB*;•NEXT : P=1 : GGSUB2000 
INPUT"PON HIA,MES,V CIFEA ANUAL";D,M,A 
IFM<0ÜRM>12THEN200 
GÜSUB2500 : GÜSUB1000 
X=*FNJCN) 

PE I NT " EL "; II;" DEL "; M" DE "ñ" ES ", D$ < X ) 

IFN1 --0THEN250 

PE I NT " H «FECHA ANTEEIÜRS", " StD IFERENCI Ai", 
PE I NT" ”D l," /"; M i;" /"; ñ 1," "; N-N1 

D1~D M1-M : A1-A : N1=N•EETURN 


I: ALENDAR IC 


*. U -1 i ii n n 


410 
420 


P»5 : GGSUB2000 

FUEI=iTü186 : PEINTB$; : NEXT 

p~9 : GÜSUB2000 

INPUT"■ FON EL. MES,. Y LH CIFRA ANUAL"; M, A : D~ 1 

GOSUB2500 

P=5 : GÜSUB2000 

PE I NTTñB (25 >" #J1ES :"; M," DE"; A 
IFTK1ÜRM>12THEN30S 

FÜRI ~ 1T07 : PE I NTTñB < 6* I -5 > LEFTf- < D$ < I > , 3 > ; ; NEXT : PE I NT 
B=FNB(ñ> : GQSUB1000 
X~FM J(N):GQSUB1500 
L=6*X~5 

PEI NT "ir; : F : ÜR 1 = 1 TOT 

PE I NTTñB < L >= IFI < 10THENPRI NT" M ; 

IFL>34THENPEINT"ST;I,"l”, : GÜTÜ440 
PEINTI, 
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L-L.+6 : IFL>37THENL=1 : PEI NT 
450 NEXT : PEINT ; EETURN 


33 < 


I 1 ft « u u » 


DIriS TRRNSCURRIDOS 


998 R 
939 : 

1000 N=Sfc'b$ñ+L í'1 +D+1N I í. í.H ” 1 /4 + o + ■' 4 1 H,'4 — IN i fl/4 ) 

1010 IFñ*100©+M*20+D<i 5322 i4THEHG0T01@58 
1020 N-N-11-1 NT C <. h -1601 > / i 00 > +1 NT ( < H-1201) /400 > 

1050 RETURH 
14 9 1 '^ ; 

1498 REM. TOTfiL DIRS DEL MES 

1499 : 

1500 E=FNB(ñ> 

1510 T=L C M+1 > -L ( M ) - (. M=2 > ■' RET1JRN 

1595 : 

1995 REM.POSICIQNfiR 

1999 : 

2000 F'RINT"Sil" : FORI = 1TOP : PRINT "«" 1 : NEXT : PRINT : RETURH 
2450 : 

2490 REM.BORRRR LINER ESCRITR 

2495 : 

2500 PRI NT "m" ; : FORI = 1T010 : F’R I HTE$ 1 : NEXT = RETURH 
2560 END 


w 


PREMIADO CON 


PESETAS 
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Cartas 


P.: Soy uno de sus lectores perma¬ 
nentes. pues poseo un Vie-20 y me 
gusta su revista. Aunque me gustaría 
que esta carta fuera publicada en la 
revista, me conformo con que la leáis, 
pues se trata de un grave problema. 
En su última publicación, señores, han 
premiado con la suma de 5.000 pese¬ 
tas al programa para el Vic llamado 
1 ES I de un tal Alfredo José Díaz 
(con el cual yo no tengo nada que 
ver), pues bien, vamos a la cuestión, 
el caso es que el programa había ya 
sido publicado anteriormente en otra 
publicación nacional con el nombre 
“Pánico en el fondo del mar' . 

El programa es exactamente el 
mismo y yo lo he reconocido, pues lo 
escribí hace tiempo, y bien esperando 
que tomen las medidas necesarias 
contra este “pirata' de programa les 
saluda atentamente. 

L.T.E. Almería 

En parecidos términos se expresa 
oirá lector: 

P.: ... El único cambio del señor 
premiado fue ponerle las listas co¬ 
rrespondientes a las puntuaciones de 
los helicópteros, barcos, etc., que esas 
órdenes las pone mi hijo, que tiene 
siete años, aclárenme si esta forma de 
concursar es correcta. 

.1. Inclán. (jijón 

R.: Pues bien. L.T.I.. como nos 
pides, publicamos tu carta. 

./. Inclán: Efectivamente, ésa no es 
forma de participar en concurso. Los 
programas deben ser inéditos v origi¬ 
nales, sino cualquier concurso pierde su 
esencia. 

Como es lógico, escapa ifc nuestro 
control saber qué programas se publi¬ 
can o no en todas las publicaciones que 
en el mercado hay. Sin embargo, 
confiamos en que nuestros lectores nos 
pondrán al corriente de cualquier irre¬ 
gularidad que observen, como es este el 
caso. 

Cuando ocurre algo de este tipo nos 
vemos afectados en nuestra buena fe. 
pues suponemos que los concursantes 
quieren dar a conocer sus desarrollos. 
El premio de las 5.000 pesetas no es un 
fin en sí, sino un acicate y un recono¬ 
cimiento al esfuerzo de días o tal vez de 



meses, de ratos libres preparando el 
programa. 

Por lo que a! concursante toca, hoy 
mismo le enviamos una carta en ¡a que 
pedimos explicaciones sobre el tema. 
No nos la debe solamente a nosotros, 
todos los participantes tienen derecho a 
ella. 


P.: Son un usuario del l ic-JO. y he 
descubierto su rev ista por casualidad. 
Me he encontrado una sección que 
me ha atraído mucho: la sección 
“CONC URSO", pero después me he 
preguntado, cómo participar en este 
concurso. Mi pregunta es la siguiente: 
¿como se han de enviar los progra¬ 
mas’ ¿Chuta, listado o qué? La revista 
me parece fabulosa, y espero que 
guste a los además usuarios de Com- 
modore. 

Javier Elustondo. Algorta (Vizcaya) 

R.: Muchas gracias por ¡os halagos 
vertidos a favor de Ia revista. .1 juzgar 
por lo que nos cuenta nuestro departa¬ 
mento de circulación, parece que la 
revista si está gustando a los usuarios, 
por lo menos la compran. 

Aprovechamos esta carta para con¬ 
testar a otras varias, cuyo contenido es 
similar. Los programas se pueden en¬ 
viar a nuestra redacción. So se impo¬ 
nen más trabas que las que afectan a la 
originalidad y exclusividad. A claramos: 
los programas deben ser inéditos v no 
haber sido enviados a ninguna otra 
publicación nacional o extranjera, sean 
revistas, libros o cualesquiera otras. 

Para que los programas puedan 
concursar es necesario que vengan 
grabados en cinta de cassette o diske- 
tte , indicándonos para qué ordenador 
han sido desarrollados, l'ie-JO, C-64, 
5000, etc. También deberán ser acom¬ 
pañados de una explicación y por 
supuesto el nombre, dirección v telé¬ 
fono de contacto (hay que saber a 
quien se envía el premio). El listado es 
aconsejable, pero entendemos que no 
todo el mundo tiene acceso a una 
impresora. En caso de dificultad no nos 
importará listarlo nosotros, de hecho lo 
hacemos con todos, para mantener la 
uniformidad de la revista. Decimos que 


es aconsejable porque durante el trans¬ 
porte. los datos grabados en soporte 
magnético podrían sufrir alguna alte¬ 
ración total o parcial. Con un listado 
en la mano costaría menos trabajo 
reconstruirlo. Por lo demás, el servieo 
de Correos nos hace llegar los envíos 
de los concursantes sin mayor proble¬ 
ma. 



P.:Sov un “commodoriano" nova¬ 
to. Adquirí mi C-64 a través de la 
(aixa... Muchas veces no puedo co¬ 
piar sus interesantes programas, va 
que debido a mi bajo nivel informáti¬ 
co. no sé qué teclar debo pulsaren mi 
C-64. para conseguir los signos gráfi- 


i wo linUlVH/o, 


n-v/o apul cLUl Lll 

Me ha ayudado mucho la clave que 
ofrecen en cada número de su revista, 
pero en ella no aparecen algunos de los 
gráficos antes mencionados. Esta es 
mi petición: 

“Podrían en sucesivos números de 
su estupenda revista ir ampliando la 
relación: * Cómo se ve. * Cómo se 
teclea. * Efecto conseguido, para que 
los novatos como yo podamos disfru¬ 


tar utilizando “todos" los programas 
que aparecen en la revista. 


M. A. Chamorro 
Corona 


R.: En primer lugar permítenos envi¬ 
diarte por el precioso lugar donde 
vives. En efecto, la lista de caracteres 
gráficos que publicamos no es comple¬ 
ta. aunque sí recoge los de más fre¬ 
cuente utilización. De todas maneras 
hemos elaborado una lista más amplia 
que publicaremos a partir del próximo 
número de la revista. So obstante, si no 
quisieras esperar, casi cualquier libro 
de los existentes en el mercado sobre 
ordenadores de Commodore incorpo¬ 
ran este tipo de listas. Así pues podrás 
elegir alguno* de los muchos publi¬ 
cados. 



P.: Les escribo para hacerles una 
pequeña crítica, y espero que sea 
constructiva. Hace muy poco tiempo 
que me he comprado un Vic-20 y de 
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casualidad cayó en mis manos su 
revista. Y la revista en «eneral no está 
mal. pero en portada dicen ustedes: 
“revista independiente para usua¬ 
rios’*. por ahora todo bien, pero 
después de hojear su revista de junio, 
el número 4 me dije: esta revista es 
para usuarios del Commodore 64, y es 
que está muy claro, hay en este 
número (4) unos 1 1 listados de pro¬ 
gramas. de los cuales 8 son para el 64, 
para el Vic-20 y los otros restantes no 
se sabe y si ni siquiera necesitan 
ampliación. Por lo tanto pienso que 
esta revista no es rentable para el 
usuario del Vic. Ya me dirán ustedes 
que interés puede tener 250 ptas. por 
un programa. Espero que tomen las 
medidas oportunas. Les rogaría me 
dieran contestación a este carta. 

J.C. Fontecoba. Basauri 

P.: Solicitó, por favor, que añadan 
más programas para el Commodore 
64. En su revista hay una gran canti¬ 
dad de programas para el Vic-20, v 
pocos para el C-64. 

Se despide atentamente. 

J. M. Esparraguera 
higueras, Gerona 

R.: Estas dos cartas son sólo una 
muestra de algunas más que se reciben 
en la redacción. Como se puede ver 
nunca llueve a gusto de todos. 

Procuramos que los números estén lo 
más equilibrados posible en el reparto 
de programas. Sin embargo, hay oca¬ 
siones en las que tenemos mayor núme¬ 
ro de programas interesantes para un 
ordenador que para otro. Entendemos 
que a cada uno le gustaría ver sólo 
programas para su modelo, pero ésta 
es una revista de usuarios. De todas 
maneras no es tan importante la canti¬ 
dad de programas como la calidad de 
los publicados. Realmente sometemos 
a una dura criba todos los que llegan a 
la revista y son muchos los que quedan 
en el camino. Si optásemos por publi¬ 
carlos todos sólo gozarían quienes 
disfrutan tecleando sin importarles el 
cometido del programa. 

No obstante creemos que la revista 
en términos globales tiene interés no 
solamente por los programas, aunque 
tampoco creemos que estos desequili¬ 
brios sean tan pronunciados. 


En una edición anterior se omitió, 
obviamente por error, el listado de 
una corta rutina que evita que el 
símbolo de la interrogación aparezca 
cuando un programa encuentra una 
sentencia con INPUT. A continua¬ 
ción no sólo vamos a publicar esa 
rutina, sino dos más. 

En la figura 1 observamos la rutina 
original, cambiando el contenido de 


Fisura 1. 1000 OREN 1,0 

1010 PRINT"ESCRIBE UN DATO "J 
1020 INPUT#l,fi$ 

1030 PRINT 
1040 PRINT R* 

1050 GLOSE 1,0 


la dirección de memoria 19 (decimal). 
Después de introducirse el dato, se 
deja de influenciar sobre ella, ponien¬ 
do a cero nuevamente su contenido. 
En el mapa de memoria, esta direc¬ 
ción está definida como un almacena¬ 
miento temporal de cadenas, que 
actúa en forma de pila (apilando 
bvtes). 


La rutina de la figura 2 presenta un 
enfoque diferente. Consiste en abrir 
un canal de comunicación con el 
teclado, mediante OPEN. Después se 
utiliza INPUT#, para recibir infor- 


Ambas subrutinas deben introdu¬ 
cirse tantas veces como se necesite 
utilizar INPUT. En el caso presente, 
las publicamos a modo demostrativo, 
por eso hemos incluido las líneas con 
PRINT y PRINT A$, que lógicamen¬ 
te no son necesarias en un programa 
de aplicación. 

La tercera posibilidad difiere de las 
anteriores. Mediante POKE se alte¬ 
ran los contenidos de diversas posi¬ 
ciones de memoria, que afectan al 
teclado. La dirección 198 (decimal) 
contiene el número de caracteres pre¬ 
sentes en el teclado. De la 631 a la 634 


mación desde el dispositivo numera¬ 
do con 0 (el teclado). Posteriormente 
se cierra el canal y continúa ejecután¬ 
dose el programa con toda normali¬ 
dad. 


son parte del buffet' del teclado. El 
buffer normalmente va de 631 a 640, 
pero como previamente hemos adver¬ 
tido que en el teclado sólo hay 4 bvtes 
de información, sólo utilizaremos 
otros tantos bytes del mismo. Si 
comprobamos en el Manual de Com¬ 
modore, veremos que la información 
que depositamos hace que el cursor se 
desplace dos lugares hacia la izquier¬ 
da y que en su lugar se escriba un 
espacio (32) y el código ASCII del 
carácter que deseamos que actúe co¬ 
mo promt (en este caso se sustituye 
por un corazón, pero puede utilizarse 
el espacio o cualquier otro). 


Figura 2. 1000 R0KE 19,1 

1010 INPUT"ESCRIBE UN DfiTO "iM 
1020 POKE 19,0 
1030 PRINT 
1040 PRINT ñ$ 


Figura 3. 1000 POKE 198,4 

1010 POKE 631,15? 

1020 POKE 632,15? 

1030 PÜKE 633,32 
1040 POKE 634,RSC("#") 
1050 INPUT R$ 


De cualquier modo, esperamos que sean de utilidad. 
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Aclaración 
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C ómo diseñar juegos por ordenador 

Por dificultades en la disponibili 
dad de espacio, hubo que omitir a k 
hora del cierre el listado del programí 
de esta serie (figura 7). que debien 
haber acompañado al capítulo 4 de k 
serie. 


1 1 

JIJlU 1000 



10 

PRIHT" 

41" , 



20 

FÜR J= 

I TÜ 

i, i 

í 'l 


21 

PRIHT" 

ir; 



y 

HE XI 




23 

FÜR J- 

I TQ 

V 


24 

PRIHT" 

jfl" 



25 

HE XI 




26 

PRIHT" 

II"; 



«• 

IF D=I 

THEN 

PRINT 

"II", 

~i n 

eLO 

IF E=I 

THEN 

PRINT 

"M"; 

29 

IF D=K 

THEN 

PRIHT 

"II".; 

30 

IF E=K 

THEN 

PRINT 

"H"; 

35 

PRIHT" 

0" 



40 

X=X+D 




45 

V-V+E 




50 

IF X=fi 

THEN 

D=K 


60 

IF X=I 

THEN 

D=I 


65 

IF V-I 

THEN 

E~ I 


70 

IF V=B 

THEN 

IF X> 

<R+K> 

pe; 

OJ 

IF V=C 

THEN 

GOTO ! 

500 

90 

IF V=I 

THEN 

IF LC 

X ) = I 


• » 

A •! 

r i 


:r+g then e=k 


58 
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92 

IF P=fl THEN GOTO 800 


3 5 

IF V=I THEN E=I 


1 0@ 

b-F'EEK 0 


105 

S= (NÜT S> FlNH T 


1 1 0 

IF S AND V THEN IF R>G 

THEN 

120 

IF S AND U THEN IF RCF 

THEN 

I 130 

PRINT"»"; 


140 

FÜR J=I TÜ Ü 


•| y¡ c; 

PRINT" M"; 


150 

NEXT 


153 

PRINT"! 


155 

IF R=2 THEN PRINT":* 

¡•■tjjpyiii j 

160 

FOR J=I T0 R 


165 

PR I NT" Ü|"; 


170 

NEXT 


175 

pr i nt " ski ; 


180 

GOTO 10 


500 

F'RINT"PERDIO " 

510 

END 


800 

Pr j NT GANO 

ii 


GOTO 10 


¡■¡O* 


1000 REM m MOVER CfiRftCTERES 
1010 F'ÜKE 52.i 48 : PÜKE 56, 48 •' CLR 
1020 PÜKE 56334, PEER <56334 :» RNIi 254 
1030 PÜKE 1,PEEK(1> RND 251 

1040 FÜR 1=0 JO 2047 : F’ÜKE I +12288, F'EEK<I +53248> : NEXT I 
1050 PÜKE 1, F’EEK U) ÜR 4 

1060 PÜKE 56334,PEEK<56334 > ÜR I 

1070 FÜR 1=0 10 7 

1080 REhIi H 

1030 PÜKE 12288+1,h 

1100 NEXT I 

1110 BRTH 60,126,255,255,255,255.126.60 

1120 PÜKE 53272, (PEEK<53272>FlNB 24FO + 12 

1130 REM m INICIRLIZRR VARIABLES 

1140 1=1 

1150 R=38 

1160 B=20 

1170 R=20 

1180 K=-1 

1130 V“2 

120Ü X=2Q 

1210 DIM L<48> 

1220 FÜR J=1 TÜ 40 

1230 L(J > = I 

1240 NEXT 

1250 T-31 

1260 U=8 

1270 V=4 

1280 Z-2 

1230 F=36 

1300 C=21 

1318 P=@ 

1320 0-56328 
1330 I¡~~ 1 
1340 E=1 
1350 Ü~3 < 

1500 RETI ** COLORES DEL FuNDu 
1510 PÜKE 5328Ü,0 
1520 PÜKE 53281,0 
1530 PRINT : PEÍ NT" ül 31 

1800 GOTO 10 


r^Mii 

'«fü 
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Las excelentes capacidades gráficas 
del C-64 vienen controladas, todas 
ellas, por un componente muy impor¬ 
tante del hardware; el chip MOS 6567 
Video Interfaee Controller (Controla¬ 
dor del Interfaee Video), más común¬ 
mente llamado VIC 11. Este chip, el 
solito, se encarga de proporcionar 
todos los modos gráficos de que 
dispone el 64, incluyendo entre ellos 
el modo normal de visualización de 
caracteres en un formato de pantalla 
de 25 X 40. el modo gráfico de alta 
resolución en un formato de 200 X 
300 puntos y los Sprites , objetos 
móviles de alta resolución. 

La intención de este artículo es 
entrar a describir en profundidad 
como se organiza y como funciona 
uno de estos modos gráficos; el modo 
normal de visualización de caracteres, 
que es aquel con el que nos encontra¬ 
mos al encender el ordenador. 


ALGO SOBRE EL VIC II Y LA 
MEMORIA 

A pesar de que el 64 dispone de 
65536 (ó 64K) posiciones de memoria 
direccionables, el chip VIC’ II sólo es 
capaz de acceder simultáneamente a 
16K posiciones, es decir, la cuarta 
parte. Si dividimos los 64K en cuatro 
bloques de 16K. podremos decirle al 
VIC II sobre cual de los cuatro 
bloques (o bancos) va a trabajar, y de 
esta forma será posible acceder al 
conjunto de los 64K. 

Para saber a cual de los cuatro 
bancos tiene que acceder, el VIC II 
mira a una posición de memoria, que 
corresponde a un registro de un chip 
de Entrada/Salida llamado CIA 
(6526 Complex Interfaee Adapter). Un 
par de bits de ese registro, llamados 
bits de selección del banco, según 
tengan un valor u otro, van a indicar 


uno de los cuatro bancos. Estos dos 
bits son los dos menos significativos 
(de menor peso) del registro. En la 
tabla 1 hemos señalado las posiciones 
de memoria que corresponden a cada 
uno de los bancos, y también el valor 
correspondiente de los bits de selec¬ 
ción del banco. 

Inicialmente, al conectar el orde¬ 
nador. el VIC II está mirando al 
banco 0, pero en cualquier momento 
puede hacerse que cambie a otro 
banco, para lo que se deben seguir los 
siguientes pasos; 

1. El primer paso consiste en 
poner a “1” los dos bits de menor 
peso de la posición 56578 (DD02 en 
hexadecimal). con lo que ya se puede 
cambiar de banco. 

2. El segundo paso consiste en 
poner en los bits 0 y 1 del registro de 
selección de banco el valor corres¬ 
pondiente al banco que queremos 


10 rem mm*mm*m** 

15 REM * CARACTERES * 

20 REM * GIGANTES * 

25 REM #*##**#***#*** 

30 REM 

45 FQR 1=53248 TG 55297 STEF'8 : REM «BUCLE PARA LEER ROM. * 

50 PÜKE56334,PEEK i 56334>AND254 : REM $INHIBE INTERRUPCIONES * 

55 P0KE1 .• F’EEKX1 )AITIl251 : REM «DESCONECTA REGISTROS * 

60 PRINT"3" 

65 FOR J=0 TÜ ?• REM «BUCLE PARA LEER S BVTES * 

70 I) ( J ) = PEEK (I + J > 

75 NEXT J 

80 PÜKE1, PEEK< 1 >0R4 •' REM «CONECTA REGISTROS * 

85 P0KE56334,PEEK<56334>0R1 : REM «PERMITE INTERRUPCIONES « 

90 F’RINT"IHÍHS©IRECC. CONTENIDO CARACTER»": REM «RUTINA DE IMPRESION « 
95 FOR J=0 TÜ 7 

100 PRINT I+J;TABÍ10);D< J>;TRB<18>; 

105 FORK-7 T0 0 STEP -1 
110 KK/»=2 TK 

115 PRI NT CHR* < 032+ < 134 AND í D < J ) ANDKKX > O0 > >; 

128 IFD<J>>KK7¿THEND<J)=D<J>-KKX 
125 NEXTK 
130 PRINT 
135 NEXTJ 

140 PRINT"liiiiHíUPF’ULSA ESPACIO." 

145 FOR T=1 T0 300 : NEXTT 
150 GETA$ 

155 IFA$=""THEN150 
160 IFA$0" "THEN STOP 
165 NEXT I 
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seleccionar, según hemos visto en la 
tabla 1. Este registro está en la 
posición 56576 (E)D()() en hexadeci- 
mal). 

Para llevar a cabo estas operacio¬ 
nes se utilizan los operadores lógicos 
AND y OR, en lo que podríamos 

V V V V V V V 
A /\ A A A A A / •. 


De la misma forma, si queremos 
alterar los bits 0 v 1 de la posición 
56576 para cambiar de banco, prime- 

xxxx xxxx 

AND lili 1100 


Y ahora para poder acceder al 
banco 2 haríamos: 

xxxx xxoo 

OR 0000 0001 
XXXX XX01 

Desde BASIC’ todo este procedi¬ 
miento que nos permite cambiar el 
banco de memoria del V1C II se 


llamar técnicas de utilización de más¬ 
caras y que vamos a ver con un 
ejemplo. 

Si queremos poner a “1” los bits 0 
y 1 de la posición 56578 tenemos que 
hacer un OR con el valor 3. X 
significa cualquier valor: 0 ó 1. 

C o n t s n i el o d e 5 65 7 S 

V a 1 □ r 3 e n i::< i n a r i o 

ResoI bada 

ro tendremos que ponerlos a kk O" con 
un AND y luego ponerlos al valor 
deseado con un OR. 

Cantenido de 56576 

Valar 252 en binario 

Re su 3. tado 


Contenido de 56576 
V a 1 o r 1 e n b i. n a r i. o 

Resu1tado 

llevaría a cabo mediante el siguiente 
par de instrucciones. 


Donde B es el valor correspondien¬ 
te al banco, de memoria deseado, 
según la tabla 1 v que puede ser 0, 1,2 
ó 3. 


LA MEMORIA DE PANTALLA 

La memoria de pantalla es una 
zona de RAM (memoria de lectura y 
escritura) donde se almacena la in¬ 
formación de lo que se está visuali¬ 
zando en la pantalla. Como en el 
modo normal de visualización de 
caracteres, la pantalla está constitui¬ 
da por 25 filas de 40 caracteres cada 
una, hay un total de 1.000 caracteres 
a visualizar. Cada carácter se almace¬ 
na en una posición de memoria y 
ocupa un byte, por lo que son necesa¬ 
rios un total de 1.000 bytes de'RAM. 
que constituyen la memoria de panta¬ 
lla. Estos 1.000 bytes están organiza¬ 
dos secuencialmente por filas de for¬ 
ma que el menor de ellos guarda el 
carácter de la esquina superior iz¬ 
quierda de la pantalla, mientras que 
el mayor se corresponde con la esqui¬ 
na inferior derecha. Esta correspon¬ 
dencia tan sencilla nos va a permitir 
escribir un carácter en la pantalla 
mediante POKE a la dirección corres¬ 
pondiente de RAM y también nos da 
la posibilidad de leer un carácter de la 
pantalla mediante un PEEK a la 
memoria. 

Los 1.000 bytes de la memoria de 
pantalla pueden estar en cualquiera 
de las 16 zonas de 1 K en que se puede 
dividir el bloque de memoria al que 
está mirando el VIC II. Inicialmente, 
al encender el C-14 la memoria de 
pantalla se sitúa en el segundo bloque 
de 1K del banco O, tal y como hemos 
dibujado en la figura 1, pero en 
cualquier momento la podemos cam¬ 
biar, eso sí, diciéndole al VIC II 
donde queremos ponerla. Esto se 
hace modificando la posición 53272 
que corresponde a un registro del 
VIC II y cuyos cuatro bits de mayor 
peso señalan el comienzo de la me¬ 
moria de pantalla, según la combina¬ 
ción que formen, de entre las 16 que 
pueden formar. En la tabla 2 están las 
16 combinaciones de los 4 bits al lado 
de la dirección de comienzo que 


POKE 56578, PEEK (56578) OR 3. Para poder cambiar de banco. 
POKE 56576, (PEEK (56576) AND 252) OR B. Para acceder a un 
banco nuevo. 


TABLA 1 

DIRECCIONES 
DECIMAL HEXA 

BANCO 

CIA 

BITS 1 Y O 

VALOR 

B 

DGGÜO 

a 

16383 

OGOO 

a 

3FFF 

0 

11 

¡ 

L> 

16384 

a 

32767 

4000 

a 

7FFF 

1 

10 

•~l 

jL 

32768 

8000 




a 

49151 

& 

BFFF 

O 

■ ém m 

01 

1 

49152 

cono 




a 

a 

3 

00 

0 

65535 

FFFF 

, « 




a^azjj’ue_ 
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TABLA 2 


DIRECCIONES 

BITS 

DE 

VALOR 

RELATIVAS 

DECIMAL 

. 

HEXA 

5327 


B 

□ OOCO 

0000 

0000 

XXXX 

□ 

□1 024 

0400 

□001 

XXXX 

16 

02048 

0800 

□010 

XXXX 

32 

□3072 

OCOO 

□011 

XXXX 

48 

□4096 

1000 

0100 

XXXX 

64 

□5120 

1400 

0101 

XXXX 

80 

06144 

1800 

□110 

XXXX 

96 

□7618 

1C00 

0111 

XXXX 

112 

08192 

2000 

1000 

XXXX 

128 

□9216 

2400 

1001 

XXXX 

144 

10240 

2800 

1010 

XXXX 

160 

11264 

2C00 

1011 

XXXX 

176 

12288 

3000 • 

1100 

XXXX 

192 

13312 

3400 

1101 

XXXX 

. 208 

14336 

3800 

1110 

XXXX 

224 

15360 

3C00 

1111 

XXXX 

240 


representan. Hay que tener en cuenta 
que esta dirección es relativa al banco 
de 16K en q ue esté traha jando el VI ( 
II: por ejemplo si estarnos en el banco 
1 de 16K. que comienza en la direc¬ 
ción 16384 (4000 hexadecimal) y si¬ 
tuamos la memoria de pantalla en el 
segundo bloque de lk. poniendo la 
combinación 0001 XXXX en la posi¬ 
ción de memoria 53272. entonces la 
memoria de pantalla comenzará en la 
posición 1024 -1- 16384 = 17408. 

Desde el BASIC es sencillo realizar 
este cambio de posición de la memo¬ 
ria de pantalla ya que sólo hay que 
escribir: 


POKE 53272. (PEEK(53272)AND 
15) OR B 


Siend ) B el valor correspondiente 
al bloque donde se quiere poner la 
memoria de pantalla según la tabla 2. 


TABLA 3 

• 


JUEGO DE CARACTERES 

DIRECCIONES 


DECIMAL. 

HEXADECIMAL 

MAYUSCULAS/GRAFICOS 

53248-55295 

D000-D7FF 

MAYUSCULAS/MINUSCULAS 

55296-57343 

D80Q-DFFF 


TABLA 4 


DIRECCIONES 

RELATIVAS 


BITS 
S3272 


DE 


VALOR 

B 


DECIMAL 

H E X A 




00000 ‘ 

0000 

XXXX 

OOOX 

0 

02048 

0800 

XXXX 

001 X 


04096 

1000 

XXXX 

01OX 

4 

06144 

1800 

XXXX 

011 X 

6 

03192 

2000 

XXXX 

100X 

8 

10240 

2800 

XXXX 

101 X 

10 

12288 

3000 

XXX X 

11 0 X 

A *"> 

J. -il- 

■H ¡,~2~ZL, 

3800 

XXXX 

111 X 

14 



CARACTERES EN ROM 

Para saber como tiene que dibujar 
los caracteres en la pantalla, el 64 
guarda información, en forma de 

V- 

“ceros" y kfc unos", referente a cada 
uno de los caracteres. Esta informa¬ 
ción se almacena en memoria ROM 
(memoria no volátil) para que no se 
pierda cada vez que se desconecta el 
ordenador, y ocupa un total de 4 
K bytes. Esta memoria se organiza en 
bloques de 8 bytes, cada uno de los 
cuales representa un carácter; de esta 
forma se puede establecer una corres¬ 
pondencia entre puntos de la pantalla 
v bits, ya que si observamos cómo se 
dibuja un carácter en la pantalla 
veremos que está constituido por una 
serie de puntos individuales y muy 
pequeños. Estos puntos forman parte 
de una matriz de 8 X 8 puntos que se 
asigna a cada carácter. Entonces es 
muy fácil establecer la corresponden¬ 
cia entre 8 bytes de la ROM y las 8 
filas de la matriz, de forma que cada 
bit “P del byte representa un punto 
encendido de la fila correspondiente. 
Así. de esta forma, el 64 sabe como 
tiene que representar cada carácter en 
la pantalla. 
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En la figura 2 puede verse un 
ejemplo de como está representado 
un carácter en la memoria ROM v de 
cómo aparece luego este carácter en 
la pantalla. 

Un aspecto muy interesante de esta 
ROM es que utiliza toda una zona de 
memoria correspondiente a registros 


de Entrada/Salida. La ROM ocupa 
las posiciones señaladas en la tabla 3. 
pero ocurre que si miramos el mapa 
de memoria del 64, dichas posiciones 
también corresponden a una serie de 
registros de E/S. entonces ;cómo 

i * 

sabe el sistema operativo, o el micro- 
procesador a donde dirigirse cuando 


aparece alguna de estas direcciones de 
memoria? Lo que ocurre es que cuan¬ 
do el sistema operativo se encuentra 
con alguna de estas direcciones, su- 
pone que se refieren a los registros de 
E/S v se dirige a ellos. Sólo cuando se 
necesita información sobre caracte¬ 
res. el sistema operativo, con la co¬ 
laboración del chip VIC II. sabe que 
tiene que desconectar los registros de 
E/S y que las direcciones correspon¬ 
den a la ROM de caracteres. Esta es 
una idea muy interesante, que permi¬ 
te trabajar con mucha más memoria 
de la que tenemos, puesto que una 
serie de direcciones de memoria co¬ 
rresponden a cosas muy diferentes, 
según intervenga o no el VIC II. Es 
como si. poniendo un símil, un repar¬ 
tidor tuviera que repartir a dos zonas 
distintas de una ciudad, pero en las 
que las calles se llamarán de la misma 
forma. Entonces, además de decirle a 
que calle debe ir, habría que decirle a 
cual de las dos zonas. De esto último 
es de lo que se encargaría el VIC II. 

Existe una forma de acceder direc¬ 
tamente a la ROM de caracteres, pero 
necesita de una serie de pasos para 
abrirse camino, pues de lo contrario, 
al intentar leer las posiciones de 
memoria de la ROM, lo que leería¬ 
mos serían registros de E/S. Estos 
pasos son los siguientes: 

1. Hay que inhibir interrupcio¬ 
nes. Esto significa que hay que evitar 
que algún dispositivo de entrada/sa¬ 
lida pueda interrumpir a la CPU, 
pues, como vamos a eliminar toda 
una serie de registros de E/S. po¬ 
dríamos quedarnos colgados (sin con¬ 
trol) si llegara a una interrupción, por 
ejemplo desde el teclado. Recordemos 
que una interrupción es una señal que 
llega a la CPU desde el exterior, y que 
hace que ésta interrumpa la secuencia 
normal de intrucciones y salte a 
ejecutar una rutina específica. 

2. En segundo lugar hay que des¬ 
conectar los registros de E/S y colo¬ 
car en su lugar la ROM de caracteres, 
para que al referirnos a las direccio¬ 
nes comunes nos encontremos con la 
ROM. 

3. Ahora ya se puede leer toda la 
ROM de caracteres directamente le- 




10 REI-I 

15 REM * CARACTERES DEFINIDOS POR EL USUÑRIÜ * 

20 REM * DEMOSTRACION * 

25 REM * * 

30 rem 

35 REM 
40 REM 

45 S—16•£~o*L-12 

50 REM *INICIALIZA POSICION DE PANTALLA 
55 P0KE53272, < F’EEK C 53272 > AND 15 > ORS 
60 P0KE56578, F'EEK < 56578 > ORS 
65 REM *INICIfiLIZA EL BANCO DE MEMORIA 
70 PÜKE56576, < F’EEK < 56576) AND252 ') ORE 
75 X=C*1024:H=INT < X/256>■*L=X-256#H 
80 P0KE51, L ; PÜKE52.' H 
85 POKE 55,L:RÜKE56,H 

90 PRINT'LTW:«llW«3l CARGANDO CARACTERES DE ROM A RAMXP 
95 PRINT CHR$<142> CHR$<8> 

100 PGKE56334, F’EEK < 56334 > ANB254 
105 POKE1,PEEKC1> AND251 
110 FORJ=0TÜ1023 
115 POKEJ+12283,PEEK<J+53248) 

120 NEXTJ 

125 POKE1, PEEK(1> ÜR4 
1 30 PÜKE56334,PEEK <56334)OR 1 
135 PRINTTAB U 2 ); " a| CAPAGADOS u 

140 REM fclNICIALIZfi POSICION DEL JUEGO DE CARACTERES 
145 POKE53272,(PEEK <53272)AND241>ORC 
150 PRINT"3SWWaPULSñ ESPACIO PARA CARACTERES INVERSOS" 
155 GETA$ 

160 IFA*0" "THEN155 
165 FOR J-X+8 TÜ X+216 
170 POKEJ,255-PEEKCJ) 

175 NEXTJ 

ISO PRINT TAB<4);"MMaPULSA ESPACIO PARA LA INVASION" 
185 GETA* 

190 IFA$0" "THEN185 

195 FOR Ja12784 Tul2791 

200 REfiDD 

205 POKEJ, D 

210 NEXT J 

215 PRINT 11 IT 

228 FOR Jal TO 280 

225 PRINT"RT; CHR*<62> .¡ " ", 

230 NEXT 
235 END 

240 DATA36,24,126,219,126,60, 60,36 
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Visualización 


yendo las direcciones de memoria de 
la tabla 3. mediante PEEK. desde 
lenguaje BASIC . Si no hubiéramos 
acometido los pasos anteriores, ahora 
nos encontraríamos leyendo registros 
de E/S en lugar de la ROM." 

4. Al terminar hay que volver a 
conectar los registros E/S. 

5. Y por último, para dejar todo 
como estaba, hay que volver a permi¬ 
tir las interrupciones. 

Acceder directamente a la ROM de 


caracteres puede ser muv interesante, 
tanto para utilizar la información que 
contiene y generar con ella caracteres 
más grandes o más anchos, o también 
para definir caracteres nuevos v aso¬ 
ciarlos a determinadas teclas, lo que 
se llama caracteres definidos por el 
usuario. 

Desde BASIC Jos pasos que hemos 
indicado para llegar a la ROM de 
caracteres se llevarían a cabo con las 
siguientes instrucción es: 


Inhibir interrupciones: POKE 56334, PEER (56334) AND 254 
Desconectar los registros de E/S v conectar la ROM en su limar 

POKE 1, PEEk (1) AND 251 
Volver a conectar los registros de E/S: 

POKE 1. PEEK (1) OR 4 
Volver a permitir interrupciones: 

POKE 56334. PEEK (56334) OR I 


C orno dicen que una imagen vale 
mas que mil palabras vamos a ver en 
la pantalla del televisor, y. con el 
programa que presentamos como está 
organizada la ROM de caracteres, v 
vamos a aplicar para ello todos los 
pasos que hemos visto, para acceder 
directamente a ella. El programa que 
hemos llamado CARACTERES GI¬ 
GANTES va leyendo de 8 bytes en 8 
bytes toda la ROM de caracteres, 
presentando cada dirección, su con¬ 
tenido y al lado el carácter que se 
representa con los 8 bytes. 


ciándole al V1C II que imprima un 
carácter, o un conjunto de ellos. 

Un juego completo consta de 256 
caracteres de 8 bvtes. es decir 2 
Kbytes de memoria, aunque se puede 
utilizar un subconjunto de menos 
caracteres sin ningún problema, si se 
quiere ahorrar RAM. 

Para construir el carácter que se 
quiere utilizar hay que dibujarlo so¬ 
bre una matriz de 8 X 8 cuadrados, 
rellenando los cuadros necesarios. 

El resto del proceso, tal y como 
puede verse en la figura 3 consiste en 


CARACTERES DEEINIDOS POR 
EL USUARIO 


BANCO 


Hemos visto como la información 
necesaria para la formación de carac¬ 
teres se almacena en la ROM. Sin 
embargo es posible trasladar el con¬ 
tenido de esta ROM a la RAM 
(memoria de lectura y escritura) v 
hacer que el VIC II acceda a esta 
RAM para generar los caracteres. 
Como en la memoria RAM es posible 
escribir, se pueden modificar los bytes 
correspondientes a algún carácter de 
forma que, cuando el VlC II imprima 
dicho carácter, aparezca en la panta¬ 
lla algo diferente. Esto es lo que se 
denomina caracteres definidos por el 
usuario y permite imprimir todo tipo 
de figuras, marcianitos, letras góticas, 
animales, notas musicales, en defini¬ 
tiva cualquier cosa, simplemente di¬ 



16 K 


6 K 


16 K 


— MEMORIA 
DE PANTALLA 


poner al lado de cada fila el valor en 
binario que representa, poniendo un 
“E por cada cuadrado en negro v un 
JE' por cada cuadrado en blanco. 
Por último hay que pasar los valores 
de binario a decimal, siendo estos 
valores los que hay que colocar en 
memoria en lugar del carácter que 
queremos sustituir. 

Ahora nos queda ver donde hay 
que introducir estos valores, es decir 
en que posiciones de memoria hay 
que colocarlos mediante POKE. 

El nuevo juego de caracteres puede 
empezar en cualquiera de 8 posicio¬ 
nes dentro de cualquiera de los ban¬ 
cos de 16K. aunque hay zonas especí- 

I i cas de algunos bancos que no con¬ 
viene utilizar, ya que las utiliza el 
sistema operativo. Para decirle al VIC 

II donde tiene que buscar la informa¬ 
ción de los caracteres, hay que colo¬ 
car una combinación adecuada en los 
bits I. 2 y 3 de la posición 53272 
(DO 18 en hexadecimal) que corres¬ 
ponde a un registro del chip VIC II. 
En la tabla 4 aparecen las combina¬ 
ciones posibles al lado de la dirección 
de comienzo. Hay que tener en cuenta 
que esta dirección es relativa al banco 
en el que esté trabajando, por lo que 
hay que sumarle la dirección de 
comienzo del banco como vimos an¬ 
teriormente. 

Desde BASIC, el proceso para 
decirle al \ IC II donde tiene que 
buscar los caracteres se realiza me¬ 
diante la instrucción: 


POKE 53272. (PEEK (53272) 
AND 241) OR B 


Siendo B como siempre el valor de 
la tabla 4. 


Vamos a presentar a continuación 
un programa que permite definir 
caracteres al usuario, v que resume 
todo lo dicho en este apartado. 

De nuevo hay que inhibir interrup¬ 
ciones. pero antes de ello vamos a 
engañar al ordenador, poniéndole un 
límite a la memoria disponible para el 
BASIC, de forma que un programa 
en este lenguaje no pueda borrar 
nuestro juego de caracteres. El juego 
de caracteres se transfiere de ROM a 
la zona de RAM que empieza en la 
dirección 12288. mientras que el tope 
de memoria para el BASIC lo vamos 





























de caracteres 


CONTENIDO 


CARACTER 


DIRECCION 

DECIMAL 

BINARIO 

539 1 2 

54 

OOIIOIIO 

5 3913 

1 27 

OI lililí 

5 3914 

127 

0 1 1 1 1 111 

5 39 1 5 

127 

0 1 1 1 1 1 11 

5 39 1 6 

62 

00 1 1 1 1 10 

539 1 7 

28 

000 1 1100 

539 1 8 

3 

OOOOIOOO 

539 19 

0 

000 OOOOO 


CARACTER 




BINARIO 


OOIO OIOO 
0001 1000 
O I I I I | lo 
I I OI I O II 
O I I I I I 10 
00 I I 110 0 
00 I I I 100 
00I00100 


DECIMAL 


36 

24 

126 

219 

126 

60 

60 

36 


a colocar en la dirección 12287. Para 
poner el tope hay que modificar 4 
posiciones de memoria que actúan 
como punteros indicadores v que son: 

1. Direcciones 51 y 52, indican la 
mayor dirección disponible para las 
variables. 

2. Direcciones 55 y 56. indican la 
mayor dirección disponible para un 
programa en BASIC. 

Para poner como tope en estas 
direcciones el valor X hay que utilizar 
las siguientes instrucciones: 

X = 12287 

BA = INT (X/256) Byte alto 

BB = X—256+BA Bvle bajo 

POKH 51. BB 

POKH 52. BA 

POKH 55. BB 

POKH 56, BA 

Hl programa incluye muchas de las 
ideas desarrolladas en el artículo. 
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No olvidéis nuestra dirección: 



CY Bravo Murillo. 377. 5.° A. 

Madrid-28020. 


ENCUESTA 


Como podréis suponer, nuestra máxima ambición 
sería conoceros a todos personalmente, saber vues¬ 
tro interés y ambiciones informáticos. Pero desgra¬ 
ciadamente eso no es posible más que en casos 
contados. 

De momento sabemos que la revista en grandes 
líneas os gusta. Eso es lo que demostráis mes a mes 
en los kioskos y con las tarjetas de suscripción. 

No obstante es factible tener un conocimiento 
amplio de vuestras demandas, por un medio frío 
pero práctico: la antipática encuesta. Queremos 
conocer vuestras opiniones, qué ordenador tenéis, 
etc. Con ese mayor conocimiento confiamos en ir 
mejorando cada día los contenidos de Commodore 
Magazine. Os pedimos que seáis tan amables de 
tomaros esta pequeña molestia, estamos seguros que 
su fruto lo notaréis en breve. Somos conscientes de 
que todo esfuerzo, por pequeño que sea, debe llevar 
emparejada una compensación. Quinientas cintas de 
cassette sorteadas entre todos los que respondan nos 
parece un estímulo interesante. Así que ¡ánimo! 


I) ¿Tiene orden ador'* 

a) VIC-20 . 

b) C-64 . 

c) Otro . 

Díganos su marca 


b) Artículos de divulgación . □ 

c) Temas técnicos . □ 

d) Cartas al director . □ 

d) Otros . 


□ 

□ 

□ 


2 ) 

a) 

b) 

c) 

d) 

2 ) 

a) 

b) 

c) 

4) 

a) 

b) 

c) 

5 ) 

a) 

b) 

c) 

6 ) 

a) 

b) 

c) 


¿Dónde adquirió su ordenador'* 

Grandes almacenes . 

Tienda especializada . 

Regalo familiar . 

Otros . 

¿Para qué utiliza su ordenador* 

Juegos . 

Educación . 


¿Desde cuándo posee su ordenador* 

Más de 1 año . 

Más de seis meses . 

Más de 1 mes . 

¿Cuándo lo utiliza'* 

Todos los días . 

Fin de semana . 

Ocasionalmente . 


(S) ¿Qué le gustaría encontrar en Commodore Ma- 


□ 

□ 

gazine? 

a) .. 


□ 

b) 

c) . 

’ 


□ 



□ 

□ 

V) 

¿En qué estrato de edad se encuentra'* 
Menor de 13 .*. 


□ 

a) 

□ 

b) 

Entre 13 y 18 . 

□ 


c) 

Entre 18 v 25 . 

□ 

□ 

d) 

Entre ^5 y 50 . 

□ 

□ 

e) 

Más de 50 . 


□ 

10) 

¿Cuál es su ocupación habitual'* 



□ 

□ 

□ 


¿Con qué frecuencia lee Commodore Maga zinc'.* 

Todos los números . □ 

Ocasionalmente . □ 

Soy suscriptor . □ 


/ 1) Añada aquí sus comentarios 


C) Indique un orden de preferencia entre los temas 
de la revista: 

a) Programas . □ 







































































250 P* aS 




en 






f amaño real: 1 9,5 x 26,5 


nueva revista 





















SLOGAN 







CUANDO SE TIENE UN COMMODORE 64 

ES MUY DIFICIL SER MODESTO 


Cuando se tiene un ordenador personal 
con 64K de memoria, una magnífica resolución, 

16 colores, efectos tridimensionales 
con "sprites", un sonido equivalente 
al de un sintetizador, un teclado profesional 
con 62 caracteres gráficos, 
toda una amplia gama de periféricos 
profesionales, la más completa serie 



de programas educativos, profesionales 
y de video-juegos...; en resumen, cuando se 
tiene un ordenador personal como no existe 
ningún otro en el mercado y el más vendido 
mundialmente, cuando se tiene 

el Commodore 64, es muy difícil mostrarlo 
sin que el orgullo se te note. 


l 


EL ORDENADOR PERSONAL DE LA FAMILIA AHAS POTENTE 

-Sistemas de gestión profesionales series 8000 Y 700. -Ordenador portátil SX 64. 

- Ordenador personal COMMODORE 64. - Ordenador familiar VIC 20. 



commodore 

COMPUTER 


MICROELECTRONICA Y CONTROL, S.A. 
c Taquígrafo Serra, 7, 5.” BARCELONA-29 c/ Princesa, 47, 3 ° G MADRID-8 




























